home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: graphplot
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 20 01 00 00 80 01 00 00 |Archive.| .......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 47 72 61 70 68 50 | 6c 6f 74 00 ff ff ff ff |.!GraphP|lot.....|
|00000070| 43 fd ff ff 7d f2 84 05 | 08 00 00 00 ff ff ff ff |C...}...|........|
|00000080| fc 00 00 80 82 21 48 65 | 6c 70 00 00 09 01 00 ea |.....!He|lp......|
|00000090| 1f 02 00 00 42 ff ff ff | 57 20 cd 81 01 00 0b 96 |....B...|W ......|
|000000a0| 1f 02 00 00 24 00 00 00 | 82 21 52 75 6e 00 00 00 |....$...|.!Run...|
|000000b0| 09 01 00 ea 63 00 00 00 | 42 eb ff ff 39 3d c4 86 |....c...|B...9=..|
|000000c0| 03 00 e5 4e 63 00 00 00 | 67 02 00 00 82 21 52 75 |...Nc...|g....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 ea | 0d 7e 00 00 42 fb ff ff |nImage..|.~..B...|
|000000e0| 82 01 cf 7f 01 00 b1 de | 0d 7e 00 00 ee 02 00 00 |........|.~......|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 00 ea 8c 01 00 00 |.!Sprite|s.......|
|00000100| 42 f9 ff ff 08 03 19 7b | 01 00 c9 f5 8c 01 00 00 |B......{|........|
|00000110| 1f 81 00 00 82 4d 65 6d | 41 6c 6c 6f 63 00 00 ea |.....Mem|Alloc...|
|00000120| 30 0a 00 00 41 fa ff ff | 5d 01 8a 57 03 00 e6 4f |0...A...|]..W...O|
|00000130| 30 0a 00 00 cf 82 00 00 | 00 44 72 61 77 00 00 00 |0.......|.Draw...|
|00000140| 09 01 00 ea f4 00 00 ea | 4d 65 73 73 61 67 65 54 |........|MessageT|
|00000150| 72 61 6e 73 00 46 69 6c | e5 47 6e 66 00 00 00 00 |rans.Fil|.Gnf....|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 d4 01 00 00 |........|........|
|00000180| 46 69 6c 65 44 61 74 61 | 82 21 48 65 6c 70 00 00 |FileData|.!Help..|
|00000190| 09 01 00 ea 1f 02 00 00 | 42 ff ff ff 57 20 cd 81 |........|B...W ..|
|000001a0| 03 00 0b 96 47 72 61 70 | 68 20 50 6c 6f 74 74 65 |....Grap|h Plotte|
|000001b0| 72 0a 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0a |r.======|=======.|
|000001c0| 0a 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 77 61 |.This pr|ogram wa|
|000001d0| 73 20 70 72 6f 6d 70 74 | 65 64 20 61 66 74 65 72 |s prompt|ed after|
|000001e0| 20 61 20 66 72 75 69 74 | 6c 65 73 73 20 73 65 61 | a fruit|less sea|
|000001f0| 72 63 68 20 66 6f 72 20 | 61 20 67 72 61 70 68 20 |rch for |a graph |
|00000200| 70 6c 6f 74 74 65 72 20 | 74 6f 0a 67 6f 20 6f 6e |plotter |to.go on|
|00000210| 20 74 68 65 20 41 72 63 | 68 69 6d 65 64 65 73 2e | the Arc|himedes.|
|00000220| 20 49 74 20 70 72 6f 62 | 61 62 6c 79 20 68 61 73 | It prob|ably has|
|00000230| 20 61 20 6c 6f 6e 67 20 | 77 61 79 20 74 6f 20 67 | a long |way to g|
|00000240| 6f 20 62 75 74 20 74 68 | 65 20 63 75 72 72 65 6e |o but th|e curren|
|00000250| 74 0a 76 65 72 73 69 6f | 6e 20 69 73 20 30 2e 35 |t.versio|n is 0.5|
|00000260| 30 66 2e 0a 0a 54 68 65 | 20 70 72 6f 67 72 61 6d |0f...The| program|
|00000270| 20 77 61 73 20 77 72 69 | 74 74 65 6e 20 62 79 20 | was wri|tten by |
|00000280| 50 65 74 65 72 20 57 69 | 63 6b 73 20 61 6e 64 20 |Peter Wi|cks and |
|00000290| 50 68 69 6c 69 70 20 4c | 6f 76 65 2e 0a 0a 41 6e |Philip L|ove...An|
|000002a0| 79 20 63 6f 6d 6d 65 6e | 74 73 20 6f 72 20 73 75 |y commen|ts or su|
|000002b0| 67 67 65 73 74 69 6f 6e | 73 20 66 6f 72 20 63 68 |ggestion|s for ch|
|000002c0| 61 6e 67 65 73 20 63 61 | 6e 20 62 65 20 6e 6f 74 |anges ca|n be not|
|000002d0| 69 66 69 65 64 20 74 6f | 20 50 65 74 65 72 20 57 |ified to| Peter W|
|000002e0| 69 63 6b 73 20 61 74 0a | 0a 20 20 20 20 20 20 20 |icks at.|. |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 61 74 68 | | Math|
|00000300| 73 20 44 65 70 61 72 74 | 6d 65 6e 74 0a 20 20 20 |s Depart|ment. |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000320| 46 61 72 6e 68 61 6d 20 | 43 6f 6c 6c 65 67 65 0a |Farnham |College.|
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000340| 20 20 20 4d 6f 72 6c 65 | 79 20 52 6f 61 64 0a 20 | Morle|y Road. |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000360| 20 20 46 61 72 6e 68 61 | 6d 0a 20 20 20 20 20 20 | Farnha|m. |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 75 72 | | Sur|
|00000380| 72 65 79 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |rey. | |
|00000390| 20 20 20 20 20 20 20 47 | 55 39 20 38 4c 55 0a 0a | G|U9 8LU..|
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003b0| 20 20 20 54 65 6c 3a 30 | 32 35 32 2d 37 31 36 39 | Tel:0|252-7169|
|000003c0| 38 38 0a 46 69 6c 65 44 | 61 74 61 82 21 52 75 6e |88.FileD|ata.!Run|
|000003d0| 00 00 00 09 01 00 ea 63 | 00 00 00 42 eb ff ff 39 |.......c|...B...9|
|000003e0| 3d c4 86 03 00 e5 4e 52 | 4d 45 6e 73 75 72 65 20 |=.....NR|MEnsure |
|000003f0| 4d 65 6d 41 6c 6c 6f 63 | 20 52 4d 4c 4f 41 44 20 |MemAlloc| RMLOAD |
|00000400| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 4d 65 6d 41 6c |<Obey$Di|r>.MemAl|
|00000410| 6c 6f 63 0a 53 63 72 65 | 65 6e 73 69 7a 65 20 31 |loc.Scre|ensize 1|
|00000420| 36 30 0a 57 69 6d 70 53 | 6c 6f 74 20 36 34 30 6b |60.WimpS|lot 640k|
|00000430| 0a 52 55 4e 20 3c 4f 62 | 65 79 24 44 69 72 3e 2e |.RUN <Ob|ey$Dir>.|
|00000440| 21 52 75 6e 49 6d 61 67 | 65 0a 46 69 6c 65 44 61 |!RunImag|e.FileDa|
|00000450| 74 61 82 21 52 75 6e 49 | 6d 61 67 65 00 ea 0d 7e |ta.!RunI|mage...~|
|00000460| 00 00 42 fb ff ff 82 01 | cf 7f 03 00 b1 de 0d 00 |..B.....|........|
|00000470| 0a 10 f4 20 3e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |... >!Ru|nImage..|
|00000480| 14 1c f4 20 a9 20 50 20 | 48 20 57 69 63 6b 73 20 |... . P |H Wicks |
|00000490| 26 20 50 20 43 20 4c 6f | 76 65 0d 00 1e 13 f4 20 |& P C Lo|ve..... |
|000004a0| 34 74 68 20 4a 75 6c 79 | 20 31 39 39 30 0d 00 28 |4th July| 1990..(|
|000004b0| 13 f4 20 56 65 72 73 69 | 6f 6e 20 30 2e 35 30 66 |.. Versi|on 0.50f|
|000004c0| 0d 00 32 0e ee 20 85 20 | f2 65 72 72 6f 72 0d 00 |..2.. . |.error..|
|000004d0| 3c 0f f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 00 46 |<..initi|alise..F|
|000004e0| 0a f2 53 74 61 72 74 0d | 00 50 05 db 0d 00 5a 1b |..Start.|.P....Z.|
|000004f0| f1 8a 30 2c 31 32 29 22 | 45 6e 64 20 6f 66 20 70 |..0,12)"|End of p|
|00000500| 72 6f 67 72 61 6d 22 0d | 00 64 05 ee 0d 00 6e 0a |rogram".|.d....n.|
|00000510| c8 91 20 30 2c 30 0d 00 | 78 05 e0 0d 00 82 05 3a |.. 0,0..|x......:|
|00000520| 0d 00 8c 11 dd 20 f2 69 | 6e 69 74 69 61 6c 69 73 |..... .i|nitialis|
|00000530| 65 0d 00 96 08 ea 20 49 | 25 0d 00 a0 08 eb 20 31 |e..... I|%..... 1|
|00000540| 35 0d 00 aa 0c 2a 50 4f | 49 4e 54 45 52 0d 00 b4 |5....*PO|INTER...|
|00000550| 08 c8 97 20 87 0d 00 be | 22 ef 20 32 33 2c 31 38 |... ....|". 23,18|
|00000560| 32 2c 30 2c 30 2c 31 32 | 37 2c 35 34 2c 35 34 2c |2,0,0,12|7,54,54,|
|00000570| 35 34 2c 35 34 2c 30 0d | 00 c8 1d ef 20 32 33 2c |54,54,0.|.... 23,|
|00000580| 32 35 34 2c 32 2c 36 2c | 39 38 2c 32 2c 37 2c 30 |254,2,6,|98,2,7,0|
|00000590| 2c 30 2c 30 0d 00 d2 28 | ef 20 32 33 2c 32 35 35 |,0,0...(|. 23,255|
|000005a0| 2c 36 30 2c 31 30 32 2c | 31 30 32 2c 31 32 36 2c |,60,102,|102,126,|
|000005b0| 31 30 32 2c 31 30 32 2c | 36 30 2c 30 0d 00 dc 30 |102,102,|60,0...0|
|000005c0| de 20 67 72 61 70 68 25 | 28 33 29 2c 74 65 78 74 |. graph%|(3),text|
|000005d0| 25 28 33 29 2c 6f 70 74 | 69 6f 6e 25 28 31 30 29 |%(3),opt|ion%(10)|
|000005e0| 2c 6f 70 74 69 6f 6e 24 | 28 31 30 29 0d 00 e6 71 |,option$|(10)...q|
|000005f0| de 20 43 6f 6c 6f 75 72 | 73 25 28 33 29 2c 43 6c |. Colour|s%(3),Cl|
|00000600| 65 61 72 25 28 33 29 2c | 4e 65 77 5f 47 72 61 70 |ear%(3),|New_Grap|
|00000610| 68 25 28 33 29 2c 4e 65 | 77 5f 47 72 61 70 68 31 |h%(3),Ne|w_Graph1|
|00000620| 25 28 33 29 2c 52 65 73 | 63 61 6c 65 25 28 33 29 |%(3),Res|cale%(3)|
|00000630| 2c 47 6f 25 28 33 29 2c | 51 75 69 74 25 28 33 29 |,Go%(3),|Quit%(3)|
|00000640| 2c 4c 65 74 74 65 72 73 | 25 28 33 29 2c 43 68 61 |,Letters|%(3),Cha|
|00000650| 6e 67 65 5f 63 6f 6e 73 | 74 25 28 33 29 0d 00 f0 |nge_cons|t%(3)...|
|00000660| 17 de 20 6f 70 74 24 28 | 31 30 29 2c 6f 70 74 25 |.. opt$(|10),opt%|
|00000670| 28 31 30 29 0d 00 fa 28 | de 20 66 5f 6d 65 6e 75 |(10)...(|. f_menu|
|00000680| 5f 74 6f 70 25 28 34 30 | 29 2c 66 5f 6d 65 6e 75 |_top%(40|),f_menu|
|00000690| 5f 62 6f 74 74 6f 6d 25 | 28 32 30 29 0d 01 04 29 |_bottom%|(20)...)|
|000006a0| de 20 6c 61 73 74 5f 64 | 25 28 35 30 29 2c 6c 61 |. last_d|%(50),la|
|000006b0| 73 74 5f 66 25 28 35 30 | 29 2c 6c 61 73 74 5f 6d |st_f%(50|),last_m|
|000006c0| 25 28 35 30 29 0d 01 0e | 1a de 20 77 69 6e 64 6f |%(50)...|.. windo|
|000006d0| 77 5f 61 72 65 61 25 20 | 26 42 30 30 30 2a 32 0d |w_area% |&B000*2.|
|000006e0| 01 18 31 f4 20 73 65 74 | 20 75 70 20 6d 65 6d 6f |..1. set| up memo|
|000006f0| 72 79 20 61 72 65 61 20 | 74 6f 20 62 65 20 73 70 |ry area |to be sp|
|00000700| 72 69 74 65 28 77 69 6e | 64 6f 77 29 61 72 65 61 |rite(win|dow)area|
|00000710| 0d 01 22 19 21 77 69 6e | 64 6f 77 5f 61 72 65 61 |..".!win|dow_area|
|00000720| 25 3d 26 42 30 30 30 2a | 32 0d 01 2c 14 77 69 6e |%=&B000*|2..,.win|
|00000730| 64 6f 77 5f 61 72 65 61 | 25 21 34 3d 30 0d 01 36 |dow_area|%!4=0..6|
|00000740| 15 77 69 6e 64 6f 77 5f | 61 72 65 61 25 21 38 3d |.window_|area%!8=|
|00000750| 31 36 0d 01 40 16 77 69 | 6e 64 6f 77 5f 61 72 65 |16..@.wi|ndow_are|
|00000760| 61 25 21 31 32 3d 31 36 | 0d 01 4a 1c f4 20 63 6c |a%!12=16|..J.. cl|
|00000770| 65 61 72 20 75 73 65 72 | 20 73 70 72 69 74 65 20 |ear user| sprite |
|00000780| 61 72 65 61 0d 01 54 25 | c8 99 20 22 4f 53 5f 53 |area..T%|.. "OS_S|
|00000790| 70 72 69 74 65 4f 70 22 | 2c 32 36 35 2c 77 69 6e |priteOp"|,265,win|
|000007a0| 64 6f 77 5f 61 72 65 61 | 25 0d 01 5e 27 67 72 61 |dow_area|%..^'gra|
|000007b0| 70 68 25 28 30 29 3d 30 | 3a f4 20 67 72 61 70 68 |ph%(0)=0|:. graph|
|000007c0| 20 61 72 65 61 20 6c 65 | 66 74 20 6c 69 6d 69 74 | area le|ft limit|
|000007d0| 0d 01 68 29 67 72 61 70 | 68 25 28 31 29 3d 30 3a |..h)grap|h%(1)=0:|
|000007e0| f4 20 67 72 61 70 68 20 | 61 72 65 61 20 62 6f 74 |. graph |area bot|
|000007f0| 74 6f 6d 20 6c 69 6d 69 | 74 0d 01 72 2c 67 72 61 |tom limi|t..r,gra|
|00000800| 70 68 25 28 32 29 3d 31 | 32 37 39 3a f4 20 20 67 |ph%(2)=1|279:. g|
|00000810| 72 61 70 68 20 61 72 65 | 61 20 72 69 67 68 74 20 |raph are|a right |
|00000820| 6c 69 6d 69 74 0d 01 7c | 29 67 72 61 70 68 25 28 |limit..||)graph%(|
|00000830| 33 29 3d 39 30 30 3a f4 | 20 20 67 72 61 70 68 20 |3)=900:.| graph |
|00000840| 61 72 65 61 20 74 6f 70 | 20 6c 69 6d 69 74 0d 01 |area top| limit..|
|00000850| 86 25 74 65 78 74 25 28 | 30 29 3d 30 3a f4 20 74 |.%text%(|0)=0:. t|
|00000860| 65 78 74 20 61 72 65 61 | 20 6c 65 66 74 20 6c 69 |ext area| left li|
|00000870| 6d 69 74 0d 01 90 2f 74 | 65 78 74 25 28 31 29 3d |mit.../t|ext%(1)=|
|00000880| 67 72 61 70 68 25 28 33 | 29 3a f4 20 74 65 78 74 |graph%(3|):. text|
|00000890| 20 61 72 65 61 20 62 6f | 74 74 6f 6d 20 6c 69 6d | area bo|ttom lim|
|000008a0| 69 74 0d 01 9a 2e 74 65 | 78 74 25 28 32 29 3d 67 |it....te|xt%(2)=g|
|000008b0| 72 61 70 68 25 28 32 29 | 3a f4 20 74 65 78 74 20 |raph%(2)|:. text |
|000008c0| 61 72 65 61 20 72 69 67 | 68 74 20 6c 69 6d 69 74 |area rig|ht limit|
|000008d0| 0d 01 a4 27 74 65 78 74 | 25 28 33 29 3d 31 30 32 |...'text|%(3)=102|
|000008e0| 33 3a f4 20 74 65 78 74 | 20 61 72 65 61 20 74 6f |3:. text| area to|
|000008f0| 70 20 6c 69 6d 69 74 0d | 01 ae 27 65 64 67 65 25 |p limit.|..'edge%|
|00000900| 3d 31 35 3a f4 20 77 69 | 64 74 68 20 6f 66 20 65 |=15:. wi|dth of e|
|00000910| 64 67 65 20 6f 66 20 77 | 69 6e 64 6f 77 73 0d 01 |dge of w|indows..|
|00000920| b8 28 f4 20 70 6f 73 69 | 74 69 6f 6e 20 6f 66 20 |.(. posi|tion of |
|00000930| 6f 70 74 69 6f 6e 2c 20 | 6e 61 6d 65 20 6f 66 20 |option, |name of |
|00000940| 6f 70 74 69 6f 6e 0d 01 | c2 25 6f 70 74 69 6f 6e |option..|.%option|
|00000950| 25 28 30 29 3d 30 3a 6f | 70 74 69 6f 6e 24 28 30 |%(0)=0:o|ption$(0|
|00000960| 29 3d 22 43 6f 6c 6f 75 | 72 73 22 0d 01 cc 25 6f |)="Colou|rs"...%o|
|00000970| 70 74 69 6f 6e 25 28 31 | 29 3d 32 32 30 3a 6f 70 |ption%(1|)=220:op|
|00000980| 74 69 6f 6e 24 28 31 29 | 3d 22 43 6c 65 61 72 22 |tion$(1)|="Clear"|
|00000990| 0d 01 d6 29 6f 70 74 69 | 6f 6e 25 28 32 29 3d 34 |...)opti|on%(2)=4|
|000009a0| 31 30 3a 6f 70 74 69 6f | 6e 24 28 32 29 3d 22 4e |10:optio|n$(2)="N|
|000009b0| 65 77 20 67 72 61 70 68 | 22 0d 01 e0 27 6f 70 74 |ew graph|"...'opt|
|000009c0| 69 6f 6e 25 28 33 29 3d | 37 30 30 3a 6f 70 74 69 |ion%(3)=|700:opti|
|000009d0| 6f 6e 24 28 33 29 3d 22 | 52 65 73 63 61 6c 65 22 |on$(3)="|Rescale"|
|000009e0| 0d 01 ea 24 6f 70 74 69 | 6f 6e 25 28 34 29 3d 39 |...$opti|on%(4)=9|
|000009f0| 33 35 3a 6f 70 74 69 6f | 6e 24 28 34 29 3d 22 50 |35:optio|n$(4)="P|
|00000a00| 6c 6f 74 22 0d 01 f4 25 | 6f 70 74 69 6f 6e 25 28 |lot"...%|option%(|
|00000a10| 35 29 3d 31 31 30 30 3a | 6f 70 74 69 6f 6e 24 28 |5)=1100:|option$(|
|00000a20| 35 29 3d 22 51 75 69 74 | 22 0d 01 fe 13 6f 70 74 |5)="Quit|"....opt|
|00000a30| 69 6f 6e 25 28 36 29 3d | 31 32 37 39 0d 02 08 14 |ion%(6)=|1279....|
|00000a40| 6e 6f 5f 6f 66 5f 6f 70 | 74 69 6f 6e 73 25 3d 35 |no_of_op|tions%=5|
|00000a50| 0d 02 12 3e f4 20 70 6f | 73 69 74 69 6f 6e 20 6f |...>. po|sition o|
|00000a60| 66 20 77 69 6e 64 6f 77 | 73 20 28 30 29 6c 65 66 |f window|s (0)lef|
|00000a70| 74 2c 20 28 31 29 62 6f | 74 74 6f 6d 2c 20 28 32 |t, (1)bo|ttom, (2|
|00000a80| 29 72 69 67 68 74 2c 20 | 28 33 29 74 6f 70 0d 02 |)right, |(3)top..|
|00000a90| 1c 1a 43 6f 6c 6f 75 72 | 73 25 28 30 29 3d 6f 70 |..Colour|s%(0)=op|
|00000aa0| 74 69 6f 6e 25 28 30 29 | 0d 02 26 13 43 6f 6c 6f |tion%(0)|..&.Colo|
|00000ab0| 75 72 73 25 28 31 29 3d | 36 36 35 0d 02 30 13 43 |urs%(1)=|665..0.C|
|00000ac0| 6f 6c 6f 75 72 73 25 28 | 32 29 3d 34 30 30 0d 02 |olours%(|2)=400..|
|00000ad0| 3a 13 43 6f 6c 6f 75 72 | 73 25 28 33 29 3d 39 32 |:.Colour|s%(3)=92|
|00000ae0| 30 0d 02 44 18 43 6c 65 | 61 72 25 28 30 29 3d 6f |0..D.Cle|ar%(0)=o|
|00000af0| 70 74 69 6f 6e 25 28 31 | 29 0d 02 4e 11 43 6c 65 |ption%(1|)..N.Cle|
|00000b00| 61 72 25 28 31 29 3d 35 | 30 30 0d 02 58 18 43 6c |ar%(1)=5|00..X.Cl|
|00000b10| 65 61 72 25 28 32 29 3d | 6f 70 74 69 6f 6e 25 28 |ear%(2)=|option%(|
|00000b20| 32 29 0d 02 62 12 43 6c | 65 61 72 25 28 33 29 3d |2)..b.Cl|ear%(3)=|
|00000b30| 31 30 32 33 0d 02 6c 1c | 4e 65 77 5f 47 72 61 70 |1023..l.|New_Grap|
|00000b40| 68 25 28 30 29 3d 6f 70 | 74 69 6f 6e 25 28 32 29 |h%(0)=op|tion%(2)|
|00000b50| 0d 02 76 15 4e 65 77 5f | 47 72 61 70 68 25 28 31 |..v.New_|Graph%(1|
|00000b60| 29 3d 36 32 30 0d 02 80 | 1c 4e 65 77 5f 47 72 61 |)=620...|.New_Gra|
|00000b70| 70 68 25 28 32 29 3d 6f | 70 74 69 6f 6e 25 28 33 |ph%(2)=o|ption%(3|
|00000b80| 29 0d 02 8a 15 4e 65 77 | 5f 47 72 61 70 68 25 28 |)....New|_Graph%(|
|00000b90| 33 29 3d 39 32 30 0d 02 | 94 14 4e 65 77 5f 47 72 |3)=920..|..New_Gr|
|00000ba0| 61 70 68 31 25 28 30 29 | 3d 30 0d 02 9e 16 4e 65 |aph1%(0)|=0....Ne|
|00000bb0| 77 5f 47 72 61 70 68 31 | 25 28 31 29 3d 34 30 30 |w_Graph1|%(1)=400|
|00000bc0| 0d 02 a8 17 4e 65 77 5f | 47 72 61 70 68 31 25 28 |....New_|Graph1%(|
|00000bd0| 32 29 3d 31 32 37 39 0d | 02 b2 16 4e 65 77 5f 47 |2)=1279.|...New_G|
|00000be0| 72 61 70 68 31 25 28 33 | 29 3d 37 32 30 0d 02 bc |raph1%(3|)=720...|
|00000bf0| 13 52 65 73 63 61 6c 65 | 25 28 30 29 3d 37 30 30 |.Rescale|%(0)=700|
|00000c00| 0d 02 c6 13 52 65 73 63 | 61 6c 65 25 28 31 29 3d |....Resc|ale%(1)=|
|00000c10| 34 35 30 0d 02 d0 14 52 | 65 73 63 61 6c 65 25 28 |450....R|escale%(|
|00000c20| 32 29 3d 31 32 30 30 0d | 02 da 13 52 65 73 63 61 |2)=1200.|...Resca|
|00000c30| 6c 65 25 28 33 29 3d 39 | 32 30 0d 02 e4 0e 47 6f |le%(3)=9|20....Go|
|00000c40| 25 28 30 29 3d 38 35 30 | 0d 02 ee 0e 47 6f 25 28 |%(0)=850|....Go%(|
|00000c50| 31 29 3d 37 32 30 0d 02 | f8 18 47 6f 25 28 32 29 |1)=720..|..Go%(2)|
|00000c60| 3d 6f 70 74 69 6f 6e 25 | 28 35 29 2b 35 30 0d 03 |=option%|(5)+50..|
|00000c70| 02 0e 47 6f 25 28 33 29 | 3d 39 32 30 0d 03 0c 17 |..Go%(3)|=920....|
|00000c80| 51 75 69 74 25 28 30 29 | 3d 6f 70 74 69 6f 6e 25 |Quit%(0)|=option%|
|00000c90| 28 35 29 0d 03 16 10 51 | 75 69 74 25 28 31 29 3d |(5)....Q|uit%(1)=|
|00000ca0| 35 30 30 0d 03 20 17 51 | 75 69 74 25 28 32 29 3d |500.. .Q|uit%(2)=|
|00000cb0| 6f 70 74 69 6f 6e 25 28 | 36 29 0d 03 2a 11 51 75 |option%(|6)..*.Qu|
|00000cc0| 69 74 25 28 33 29 3d 31 | 30 32 33 0d 03 34 13 4c |it%(3)=1|023..4.L|
|00000cd0| 65 74 74 65 72 73 25 28 | 30 29 3d 32 32 30 0d 03 |etters%(|0)=220..|
|00000ce0| 3e 22 4c 65 74 74 65 72 | 73 25 28 31 29 3d 4e 65 |>"Letter|s%(1)=Ne|
|00000cf0| 77 5f 47 72 61 70 68 31 | 25 28 31 29 2d 31 36 38 |w_Graph1|%(1)-168|
|00000d00| 0d 03 48 13 4c 65 74 74 | 65 72 73 25 28 32 29 3d |..H.Lett|ers%(2)=|
|00000d10| 34 35 36 0d 03 52 21 4c | 65 74 74 65 72 73 25 28 |456..R!L|etters%(|
|00000d20| 33 29 3d 4e 65 77 5f 47 | 72 61 70 68 31 25 28 31 |3)=New_G|raph1%(1|
|00000d30| 29 2b 33 30 0d 03 5c 18 | 43 68 61 6e 67 65 5f 63 |)+30..\.|Change_c|
|00000d40| 6f 6e 73 74 25 28 30 29 | 3d 37 30 30 0d 03 66 16 |onst%(0)|=700..f.|
|00000d50| 43 68 61 6e 67 65 5f 63 | 6f 6e 73 74 25 28 31 29 |Change_c|onst%(1)|
|00000d60| 3d 30 0d 03 70 19 43 68 | 61 6e 67 65 5f 63 6f 6e |=0..p.Ch|ange_con|
|00000d70| 73 74 25 28 32 29 3d 31 | 30 31 36 0d 03 7a 18 43 |st%(2)=1|016..z.C|
|00000d80| 68 61 6e 67 65 5f 63 6f | 6e 73 74 25 28 33 29 3d |hange_co|nst%(3)=|
|00000d90| 38 39 34 0d 03 84 15 f4 | 20 64 65 66 61 75 6c 74 |894.....| default|
|00000da0| 20 78 20 72 61 6e 67 65 | 0d 03 8e 0d 78 5f 6d 69 | x range|....x_mi|
|00000db0| 6e 3d 2d 31 30 0d 03 98 | 0c 78 5f 6d 61 78 3d 31 |n=-10...|.x_max=1|
|00000dc0| 30 0d 03 a2 0d 78 5f 74 | 69 63 6b 73 3d 31 0d 03 |0....x_t|icks=1..|
|00000dd0| ac 23 f4 20 73 63 72 65 | 65 6e 20 78 20 73 63 61 |.#. scre|en x sca|
|00000de0| 6c 65 20 70 65 72 20 67 | 72 61 70 68 20 75 6e 69 |le per g|raph uni|
|00000df0| 74 0d 03 b6 37 78 5f 73 | 63 61 6c 65 3d 28 67 72 |t...7x_s|cale=(gr|
|00000e00| 61 70 68 25 28 32 29 2d | 67 72 61 70 68 25 28 30 |aph%(2)-|graph%(0|
|00000e10| 29 2d 34 2a 65 64 67 65 | 25 29 2f 28 78 5f 6d 61 |)-4*edge|%)/(x_ma|
|00000e20| 78 2d 78 5f 6d 69 6e 29 | 0d 03 c0 28 78 5f 6e 6f |x-x_min)|...(x_no|
|00000e30| 75 67 68 74 25 3d 28 2d | 78 5f 6d 69 6e 2a 78 5f |ught%=(-|x_min*x_|
|00000e40| 73 63 61 6c 65 29 2b 28 | 32 2a 65 64 67 65 25 29 |scale)+(|2*edge%)|
|00000e50| 0d 03 ca 38 e7 20 2d 78 | 5f 6d 69 6e 3e 30 20 8c |...8. -x|_min>0 .|
|00000e60| 20 79 5f 61 78 69 73 25 | 3d 30 20 8b 20 79 5f 61 | y_axis%|=0 . y_a|
|00000e70| 78 69 73 25 3d 28 78 5f | 6d 69 6e 2a 78 5f 73 63 |xis%=(x_|min*x_sc|
|00000e80| 61 6c 65 29 2b 31 30 30 | 0d 03 d4 15 f4 20 64 65 |ale)+100|..... de|
|00000e90| 66 61 75 6c 74 20 79 20 | 72 61 6e 67 65 0d 03 de |fault y |range...|
|00000ea0| 0c 79 5f 6d 69 6e 3d 2d | 31 0d 03 e8 0c 79 5f 6d |.y_min=-|1....y_m|
|00000eb0| 61 78 3d 31 30 0d 03 f2 | 0d 79 5f 74 69 63 6b 73 |ax=10...|.y_ticks|
|00000ec0| 3d 31 0d 03 fc 23 f4 20 | 73 63 72 65 65 6e 20 79 |=1...#. |screen y|
|00000ed0| 20 73 63 61 6c 65 20 70 | 65 72 20 67 72 61 70 68 | scale p|er graph|
|00000ee0| 20 75 6e 69 74 0d 04 06 | 37 79 5f 73 63 61 6c 65 | unit...|7y_scale|
|00000ef0| 3d 28 67 72 61 70 68 25 | 28 33 29 2d 67 72 61 70 |=(graph%|(3)-grap|
|00000f00| 68 25 28 31 29 2d 34 2a | 65 64 67 65 25 29 2f 28 |h%(1)-4*|edge%)/(|
|00000f10| 79 5f 6d 61 78 2d 79 5f | 6d 69 6e 29 0d 04 10 28 |y_max-y_|min)...(|
|00000f20| 79 5f 6e 6f 75 67 68 74 | 25 3d 28 2d 79 5f 6d 69 |y_nought|%=(-y_mi|
|00000f30| 6e 2a 79 5f 73 63 61 6c | 65 29 2b 28 32 2a 65 64 |n*y_scal|e)+(2*ed|
|00000f40| 67 65 25 29 0d 04 1a 38 | e7 20 2d 79 5f 6d 69 6e |ge%)...8|. -y_min|
|00000f50| 3e 30 20 8c 20 78 5f 61 | 78 69 73 25 3d 30 20 8b |>0 . x_a|xis%=0 .|
|00000f60| 20 78 5f 61 78 69 73 25 | 3d 28 79 5f 6d 69 6e 2a | x_axis%|=(y_min*|
|00000f70| 79 5f 73 63 61 6c 65 29 | 2b 31 30 30 0d 04 24 22 |y_scale)|+100..$"|
|00000f80| f4 20 64 65 66 61 75 6c | 74 20 74 20 72 61 6e 67 |. defaul|t t rang|
|00000f90| 65 20 28 70 61 72 61 6d | 65 74 72 69 63 29 0d 04 |e (param|etric)..|
|00000fa0| 2e 0d 74 5f 6d 69 6e 3d | 2d 31 30 0d 04 38 0c 74 |..t_min=|-10..8.t|
|00000fb0| 5f 6d 61 78 3d 31 30 0d | 04 42 21 f4 20 64 65 66 |_max=10.|.B!. def|
|00000fc0| 61 75 6c 74 20 74 68 65 | 74 61 20 72 61 6e 67 65 |ault the|ta range|
|00000fd0| 20 28 70 6f 6c 61 72 29 | 0d 04 4c 0f 74 68 65 74 | (polar)|..L.thet|
|00000fe0| 61 5f 6d 69 6e 3d 30 0d | 04 56 11 74 68 65 74 61 |a_min=0.|.V.theta|
|00000ff0| 5f 6d 61 78 3d 32 2a af | 0d 04 60 18 f4 20 50 6c |_max=2*.|..`.. Pl|
|00001000| 6f 74 74 69 6e 67 20 46 | 75 6e 63 74 69 6f 6e 73 |otting F|unctions|
|00001010| 0d 04 6a 26 f4 20 67 65 | 6e 65 72 61 6c 20 70 75 |..j&. ge|neral pu|
|00001020| 72 70 6f 73 65 20 64 69 | 73 70 6c 61 79 20 66 75 |rpose di|splay fu|
|00001030| 6e 63 74 69 6f 6e 0d 04 | 74 11 44 46 24 3d 22 4e |nction..|t.DF$="N|
|00001040| 6f 74 68 69 6e 67 22 0d | 04 7e 20 f4 20 64 69 73 |othing".|.~ . dis|
|00001050| 70 6c 61 79 20 63 61 72 | 74 65 73 69 61 6e 20 66 |play car|tesian f|
|00001060| 75 6e 63 74 69 6f 6e 0d | 04 88 15 44 43 24 3d 22 |unction.|...DC$="|
|00001070| 35 20 2b 20 58 73 69 6e | 28 58 29 22 0d 04 92 18 |5 + Xsin|(X)"....|
|00001080| f4 20 63 61 72 74 65 73 | 69 61 6e 20 66 75 6e 63 |. cartes|ian func|
|00001090| 74 69 6f 6e 0d 04 9c 16 | 43 59 24 3d 22 35 2b 58 |tion....|CY$="5+X|
|000010a0| 2a 46 4e 73 69 6e 28 58 | 29 22 0d 04 a6 22 f4 20 |*FNsin(X|)"...". |
|000010b0| 64 69 73 70 6c 61 79 20 | 70 61 72 61 6d 65 74 72 |display |parametr|
|000010c0| 69 63 20 66 75 6e 63 74 | 69 6f 6e 73 0d 04 b0 12 |ic funct|ions....|
|000010d0| 44 50 58 24 3d 22 37 63 | 6f 73 28 54 29 22 0d 04 |DPX$="7c|os(T)"..|
|000010e0| ba 12 44 50 59 24 3d 22 | 35 73 69 6e 28 54 29 22 |..DPY$="|5sin(T)"|
|000010f0| 0d 04 c4 1a f4 20 70 61 | 72 61 6d 65 74 72 69 63 |..... pa|rametric|
|00001100| 20 66 75 6e 63 74 69 6f | 6e 73 0d 04 ce 14 50 58 | functio|ns....PX|
|00001110| 24 3d 22 37 2a 46 4e 63 | 6f 73 28 54 29 22 0d 04 |$="7*FNc|os(T)"..|
|00001120| d8 14 50 59 24 3d 22 35 | 2a 46 4e 73 69 6e 28 54 |..PY$="5|*FNsin(T|
|00001130| 29 22 0d 04 e2 1c f4 20 | 64 69 73 70 6c 61 79 20 |)"..... |display |
|00001140| 70 6f 6c 61 72 20 66 75 | 6e 63 74 69 6f 6e 0d 04 |polar fu|nction..|
|00001150| ec 17 44 50 24 3d 22 33 | 28 31 20 2b 20 63 6f 73 |..DP$="3|(1 + cos|
|00001160| 28 ff 29 29 22 0d 04 f6 | 14 f4 20 70 6f 6c 61 72 |(.))"...|.. polar|
|00001170| 20 66 75 6e 63 74 69 6f | 6e 0d 05 00 18 50 24 3d | functio|n....P$=|
|00001180| 22 33 2a 28 31 2b 46 4e | 63 6f 73 28 54 68 29 29 |"3*(1+FN|cos(Th))|
|00001190| 22 0d 05 0a 14 f4 20 5a | 65 72 6f 20 43 6f 6e 73 |"..... Z|ero Cons|
|000011a0| 74 61 6e 74 73 0d 05 14 | 8f 61 5f 63 6f 6e 73 74 |tants...|.a_const|
|000011b0| 3d 30 3a 62 5f 63 6f 6e | 73 74 3d 30 3a 63 5f 63 |=0:b_con|st=0:c_c|
|000011c0| 6f 6e 73 74 3d 30 3a 64 | 5f 63 6f 6e 73 74 3d 30 |onst=0:d|_const=0|
|000011d0| 3a 65 5f 63 6f 6e 73 74 | 3d 30 3a 66 5f 63 6f 6e |:e_const|=0:f_con|
|000011e0| 73 74 3d 30 3a 67 5f 63 | 6f 6e 73 74 3d 30 3a 68 |st=0:g_c|onst=0:h|
|000011f0| 5f 63 6f 6e 73 74 3d 30 | 3a 69 5f 63 6f 6e 73 74 |_const=0|:i_const|
|00001200| 3d 30 3a 6a 5f 63 6f 6e | 73 74 3d 30 3a 6b 5f 63 |=0:j_con|st=0:k_c|
|00001210| 6f 6e 73 74 3d 30 3a 6c | 5f 63 6f 6e 73 74 3d 30 |onst=0:l|_const=0|
|00001220| 3a 6d 5f 63 6f 6e 73 74 | 3d 30 3a 6e 5f 63 6f 6e |:m_const|=0:n_con|
|00001230| 73 74 3d 30 0d 05 1e 7b | 6f 5f 63 6f 6e 73 74 3d |st=0...{|o_const=|
|00001240| 30 3a 70 5f 63 6f 6e 73 | 74 3d 30 3a 71 5f 63 6f |0:p_cons|t=0:q_co|
|00001250| 6e 73 74 3d 30 3a 72 5f | 63 6f 6e 73 74 3d 30 3a |nst=0:r_|const=0:|
|00001260| 73 5f 63 6f 6e 73 74 3d | 30 3a 74 5f 63 6f 6e 73 |s_const=|0:t_cons|
|00001270| 74 3d 30 3a 75 5f 63 6f | 6e 73 74 3d 30 3a 76 5f |t=0:u_co|nst=0:v_|
|00001280| 63 6f 6e 73 74 3d 30 3a | 77 5f 63 6f 6e 73 74 3d |const=0:|w_const=|
|00001290| 30 3a 78 5f 63 6f 6e 73 | 74 3d 30 3a 79 5f 63 6f |0:x_cons|t=0:y_co|
|000012a0| 6e 73 74 3d 30 3a 7a 5f | 63 6f 6e 73 74 3d 30 0d |nst=0:z_|const=0.|
|000012b0| 05 28 13 f4 20 54 79 70 | 65 20 6f 66 20 67 72 61 |.(.. Typ|e of gra|
|000012c0| 70 68 0d 05 32 10 63 61 | 72 74 65 73 69 61 6e 25 |ph..2.ca|rtesian%|
|000012d0| 3d b9 0d 05 3c 0c 70 6f | 6c 61 72 25 3d a3 0d 05 |=...<.po|lar%=...|
|000012e0| 46 11 70 61 72 61 6d 65 | 74 72 69 63 25 3d a3 0d |F.parame|tric%=..|
|000012f0| 05 50 13 64 69 66 66 65 | 72 65 6e 74 69 61 6c 25 |.P.diffe|rential%|
|00001300| 3d a3 0d 05 5a 15 f4 20 | 64 65 67 72 65 65 73 2f |=...Z.. |degrees/|
|00001310| 72 61 64 69 61 6e 73 0d | 05 64 0e 64 65 67 72 65 |radians.|.d.degre|
|00001320| 65 73 25 3d a3 0d 05 6e | 0e 72 61 64 69 61 6e 73 |es%=...n|.radians|
|00001330| 25 3d b9 0d 05 78 21 70 | 6c 6f 74 5f 63 6f 6c 6f |%=...x!p|lot_colo|
|00001340| 75 72 25 3d 32 3a f4 20 | 70 6f 69 6e 74 20 63 6f |ur%=2:. |point co|
|00001350| 6c 6f 75 72 0d 05 82 2b | 67 72 61 70 68 5f 70 61 |lour...+|graph_pa|
|00001360| 70 65 72 25 3d 34 32 3a | f4 20 63 6f 6c 6f 75 72 |per%=42:|. colour|
|00001370| 20 6f 66 20 67 72 61 70 | 68 20 70 61 70 65 72 0d | of grap|h paper.|
|00001380| 05 8c 22 61 78 65 73 5f | 63 6f 6c 25 3d 36 33 3a |.."axes_|col%=63:|
|00001390| f4 20 63 6f 6c 6f 75 72 | 20 66 6f 72 20 61 78 65 |. colour| for axe|
|000013a0| 73 0d 05 96 11 68 69 67 | 68 6c 69 67 68 74 25 3d |s....hig|hlight%=|
|000013b0| 33 32 0d 05 a0 2f 66 6f | 72 65 67 72 6f 75 6e 64 |32.../fo|reground|
|000013c0| 25 3d 32 3a f4 20 74 65 | 78 74 20 61 72 65 61 20 |%=2:. te|xt area |
|000013d0| 66 6f 72 65 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 75 |foregrou|nd colou|
|000013e0| 72 0d 05 aa 30 62 61 63 | 6b 67 72 6f 75 6e 64 25 |r...0bac|kground%|
|000013f0| 3d 32 37 3a f4 20 74 65 | 78 74 20 61 72 65 61 20 |=27:. te|xt area |
|00001400| 62 61 63 6b 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 75 |backgrou|nd colou|
|00001410| 72 0d 05 b4 36 77 69 6e | 64 6f 77 5f 63 6f 6c 25 |r...6win|dow_col%|
|00001420| 3d 36 3a f4 20 70 75 6c | 6c 20 64 6f 77 6e 20 77 |=6:. pul|l down w|
|00001430| 69 6e 64 6f 77 20 62 61 | 63 6b 67 72 6f 75 6e 64 |indow ba|ckground|
|00001440| 20 63 6f 6c 6f 75 72 0d | 05 be 3c 77 69 6e 64 6f | colour.|..<windo|
|00001450| 77 5f 74 65 78 74 5f 63 | 6f 6c 25 3d 36 33 3a f4 |w_text_c|ol%=63:.|
|00001460| 20 70 75 6c 6c 20 64 6f | 77 6e 20 77 69 6e 64 6f | pull do|wn windo|
|00001470| 77 20 66 6f 72 65 67 72 | 6f 75 6e 64 20 63 6f 6c |w foregr|ound col|
|00001480| 6f 75 72 0d 05 c8 0b 71 | 75 69 74 25 3d a3 0d 05 |our....q|uit%=...|
|00001490| d2 0e f2 70 6c 6f 74 5f | 61 78 65 73 0d 05 dc 10 |...plot_|axes....|
|000014a0| f2 70 72 69 6e 74 5f 74 | 69 74 6c 65 0d 05 e6 22 |.print_t|itle..."|
|000014b0| f4 20 73 65 74 20 75 70 | 20 66 75 6e 63 74 69 6f |. set up| functio|
|000014c0| 6e 20 6d 65 6e 75 20 73 | 74 72 69 6e 67 73 0d 05 |n menu s|trings..|
|000014d0| f0 76 66 5f 6d 65 6e 75 | 5f 74 6f 70 24 3d 22 2b |.vf_menu|_top$="+|
|000014e0| 20 2d 20 78 20 22 2b bd | 28 32 34 37 29 2b 22 20 | - x "+.|(247)+" |
|000014f0| 22 2b bd 28 31 32 38 29 | 2b 22 20 22 2b bd 28 31 |"+.(128)|+" "+.(1|
|00001500| 38 32 29 2b 22 20 28 20 | 29 20 65 20 4c 6e 20 4c |82)+" ( |) e Ln L|
|00001510| 6f 67 20 41 72 63 20 53 | 69 6e 20 43 6f 73 20 54 |og Arc S|in Cos T|
|00001520| 61 6e 20 53 65 63 20 43 | 6f 73 65 63 20 43 6f 74 |an Sec C|osec Cot|
|00001530| 20 53 69 6e 68 20 43 6f | 73 68 20 54 61 6e 68 20 | Sinh Co|sh Tanh |
|00001540| 41 62 73 22 0d 05 fa 28 | f4 20 67 72 61 70 68 69 |Abs"...(|. graphi|
|00001550| 63 73 20 70 6f 73 69 74 | 6f 6e 73 20 66 6f 72 20 |cs posit|ons for |
|00001560| 61 62 6f 76 65 20 73 74 | 72 69 6e 67 0d 06 04 0a |above st|ring....|
|00001570| f7 20 8d 54 6c 46 0d 06 | 0e 0c e3 49 25 3d 30 b8 |. .TlF..|...I%=0.|
|00001580| 34 30 0d 06 18 15 f3 20 | 66 5f 6d 65 6e 75 5f 74 |40..... |f_menu_t|
|00001590| 6f 70 25 28 49 25 29 0d | 06 22 07 ed 49 25 0d 06 |op%(I%).|."..I%..|
|000015a0| 2c 54 dc 30 2c 32 33 2c | 35 36 2c 38 35 2c 31 32 |,T.0,23,|56,85,12|
|000015b0| 30 2c 31 35 30 2c 31 38 | 34 2c 32 31 34 2c 32 34 |0,150,18|4,214,24|
|000015c0| 35 2c 32 37 38 2c 33 32 | 38 2c 33 39 32 2c 34 35 |5,278,32|8,392,45|
|000015d0| 35 2c 35 32 30 2c 35 38 | 34 2c 36 34 37 2c 37 31 |5,520,58|4,647,71|
|000015e0| 31 2c 38 30 36 2c 38 37 | 30 2c 39 35 31 2c 31 30 |1,806,87|0,951,10|
|000015f0| 33 35 0d 06 36 41 dc 31 | 31 31 34 2c 31 31 38 34 |35..6A.1|114,1184|
|00001600| 2c 2d 31 2c 2d 31 2c 2d | 31 2c 2d 31 2c 2d 31 2c |,-1,-1,-|1,-1,-1,|
|00001610| 2d 31 2c 2d 31 2c 2d 31 | 2c 2d 31 2c 2d 31 2c 2d |-1,-1,-1|,-1,-1,-|
|00001620| 31 2c 2d 31 2c 2d 31 2c | 2d 31 2c 2d 31 2c 2d 31 |1,-1,-1,|-1,-1,-1|
|00001630| 2c 2d 31 0d 06 40 53 66 | 5f 6d 65 6e 75 5f 62 6f |,-1..@Sf|_menu_bo|
|00001640| 74 74 6f 6d 24 3d 22 50 | 6f 77 65 72 20 56 61 72 |ttom$="P|ower Var|
|00001650| 69 61 62 6c 65 20 43 6f | 6e 73 74 61 6e 74 20 4e |iable Co|nstant N|
|00001660| 75 6d 62 65 72 20 20 20 | 20 20 20 20 20 20 20 20 |umber | |
|00001670| 20 20 20 20 20 20 20 20 | 44 65 6c 65 74 65 20 46 | |Delete F|
|00001680| 69 6e 69 73 68 22 0d 06 | 4a 28 f4 20 67 72 61 70 |inish"..|J(. grap|
|00001690| 68 69 63 73 20 70 6f 73 | 69 74 6f 6e 73 20 66 6f |hics pos|itons fo|
|000016a0| 72 20 61 62 6f 76 65 20 | 73 74 72 69 6e 67 0d 06 |r above |string..|
|000016b0| 54 0a f7 20 8d 44 7c 46 | 0d 06 5e 0c e3 49 25 3d |T.. .D|F|..^..I%=|
|000016c0| 30 b8 32 30 0d 06 68 18 | f3 20 66 5f 6d 65 6e 75 |0.20..h.|. f_menu|
|000016d0| 5f 62 6f 74 74 6f 6d 25 | 28 49 25 29 0d 06 72 07 |_bottom%|(I%)..r.|
|000016e0| ed 49 25 0d 06 7c 46 dc | 30 2c 38 36 2c 32 33 32 |.I%..|F.|0,86,232|
|000016f0| 2c 33 37 35 2c 34 39 30 | 2c 2d 31 2c 37 37 38 2c |,375,490|,-1,778,|
|00001700| 38 39 30 2c 31 30 30 30 | 2c 2d 31 2c 2d 31 2c 2d |890,1000|,-1,-1,-|
|00001710| 31 2c 2d 31 2c 2d 31 2c | 2d 31 2c 2d 31 2c 2d 31 |1,-1,-1,|-1,-1,-1|
|00001720| 2c 2d 31 2c 2d 31 2c 2d | 31 0d 06 86 1d f4 20 6e |,-1,-1,-|1..... n|
|00001730| 75 6d 62 65 72 20 6f 66 | 20 6f 70 65 6e 20 62 72 |umber of| open br|
|00001740| 61 63 6b 65 74 73 0d 06 | 90 0b 6f 70 65 6e 25 3d |ackets..|..open%=|
|00001750| 30 0d 06 9a 05 e1 0d 06 | a4 05 3a 0d 06 ae 10 dd |0.......|..:.....|
|00001760| 20 f2 70 6c 6f 74 5f 61 | 78 65 73 0d 06 b8 07 ea | .plot_a|xes.....|
|00001770| 20 49 0d 06 c2 26 f4 20 | 73 63 72 65 65 6e 20 78 | I...&. |screen x|
|00001780| 20 73 63 61 6c 65 20 70 | 65 72 20 75 6e 69 74 20 | scale p|er unit |
|00001790| 6f 6e 20 67 72 61 70 68 | 0d 06 cc 37 78 5f 73 63 |on graph|...7x_sc|
|000017a0| 61 6c 65 3d 28 67 72 61 | 70 68 25 28 32 29 2d 67 |ale=(gra|ph%(2)-g|
|000017b0| 72 61 70 68 25 28 30 29 | 2d 34 2a 65 64 67 65 25 |raph%(0)|-4*edge%|
|000017c0| 29 2f 28 78 5f 6d 61 78 | 2d 78 5f 6d 69 6e 29 0d |)/(x_max|-x_min).|
|000017d0| 06 d6 26 f4 20 73 63 72 | 65 65 6e 20 79 20 73 63 |..&. scr|een y sc|
|000017e0| 61 6c 65 20 70 65 72 20 | 75 6e 69 74 20 6f 6e 20 |ale per |unit on |
|000017f0| 67 72 61 70 68 0d 06 e0 | 37 79 5f 73 63 61 6c 65 |graph...|7y_scale|
|00001800| 3d 28 67 72 61 70 68 25 | 28 33 29 2d 67 72 61 70 |=(graph%|(3)-grap|
|00001810| 68 25 28 31 29 2d 34 2a | 65 64 67 65 25 29 2f 28 |h%(1)-4*|edge%)/(|
|00001820| 79 5f 6d 61 78 2d 79 5f | 6d 69 6e 29 0d 06 ea 1f |y_max-y_|min)....|
|00001830| f4 20 73 63 72 65 65 6e | 20 70 6f 73 69 74 69 6f |. screen| positio|
|00001840| 6e 20 6f 66 20 6f 72 69 | 67 69 6e 0d 06 f4 28 78 |n of ori|gin...(x|
|00001850| 5f 6e 6f 75 67 68 74 25 | 3d 28 2d 78 5f 6d 69 6e |_nought%|=(-x_min|
|00001860| 2a 78 5f 73 63 61 6c 65 | 29 2b 28 32 2a 65 64 67 |*x_scale|)+(2*edg|
|00001870| 65 25 29 0d 06 fe 28 79 | 5f 6e 6f 75 67 68 74 25 |e%)...(y|_nought%|
|00001880| 3d 28 2d 79 5f 6d 69 6e | 2a 79 5f 73 63 61 6c 65 |=(-y_min|*y_scale|
|00001890| 29 2b 28 32 2a 65 64 67 | 65 25 29 0d 07 08 34 f4 |)+(2*edg|e%)...4.|
|000018a0| 20 73 63 72 65 65 6e 20 | 70 6f 73 69 74 69 6f 6e | screen |position|
|000018b0| 20 6f 66 20 61 78 65 73 | 20 72 65 6c 61 74 69 76 | of axes| relativ|
|000018c0| 65 20 74 6f 20 6e 65 77 | 20 6f 72 69 67 69 6e 0d |e to new| origin.|
|000018d0| 07 12 19 e7 20 78 5f 6d | 69 6e 3c 30 20 80 20 78 |.... x_m|in<0 . x|
|000018e0| 5f 6d 61 78 3e 30 20 8c | 0d 07 1c 0d 79 5f 61 78 |_max>0 .|....y_ax|
|000018f0| 69 73 25 3d 30 0d 07 26 | 05 cc 0d 07 30 31 e7 20 |is%=0..&|....01. |
|00001900| 78 5f 6d 69 6e 3c 30 20 | 80 20 78 5f 6d 61 78 3c |x_min<0 |. x_max<|
|00001910| 30 20 8c 20 79 5f 61 78 | 69 73 25 3d 28 78 5f 6d |0 . y_ax|is%=(x_m|
|00001920| 61 78 2a 78 5f 73 63 61 | 6c 65 29 0d 07 3a 31 e7 |ax*x_sca|le)..:1.|
|00001930| 20 78 5f 6d 69 6e 3e 30 | 20 80 20 78 5f 6d 61 78 | x_min>0| . x_max|
|00001940| 3e 30 20 8c 20 79 5f 61 | 78 69 73 25 3d 28 78 5f |>0 . y_a|xis%=(x_|
|00001950| 6d 69 6e 2a 78 5f 73 63 | 61 6c 65 29 0d 07 44 05 |min*x_sc|ale)..D.|
|00001960| cd 0d 07 4e 19 e7 20 79 | 5f 6d 69 6e 3c 30 20 80 |...N.. y|_min<0 .|
|00001970| 20 79 5f 6d 61 78 3e 30 | 20 8c 0d 07 58 0d 78 5f | y_max>0| ...X.x_|
|00001980| 61 78 69 73 25 3d 30 0d | 07 62 05 cc 0d 07 6c 31 |axis%=0.|.b....l1|
|00001990| e7 20 79 5f 6d 69 6e 3c | 30 20 80 20 79 5f 6d 61 |. y_min<|0 . y_ma|
|000019a0| 78 3c 30 20 8c 20 78 5f | 61 78 69 73 25 3d 28 79 |x<0 . x_|axis%=(y|
|000019b0| 5f 6d 61 78 2a 79 5f 73 | 63 61 6c 65 29 0d 07 76 |_max*y_s|cale)..v|
|000019c0| 31 e7 20 79 5f 6d 69 6e | 3e 30 20 80 20 79 5f 6d |1. y_min|>0 . y_m|
|000019d0| 61 78 3e 30 20 8c 20 78 | 5f 61 78 69 73 25 3d 28 |ax>0 . x|_axis%=(|
|000019e0| 79 5f 6d 69 6e 2a 79 5f | 73 63 61 6c 65 29 0d 07 |y_min*y_|scale)..|
|000019f0| 80 05 cd 0d 07 8a 0a c8 | 91 20 30 2c 30 0d 07 94 |........|. 0,0...|
|00001a00| 28 f2 63 6c 65 61 72 5f | 77 69 6e 64 6f 77 28 67 |(.clear_|window(g|
|00001a10| 72 61 70 68 25 28 29 2c | 67 72 61 70 68 5f 70 61 |raph%(),|graph_pa|
|00001a20| 70 65 72 25 29 0d 07 9e | 1a c8 91 20 78 5f 6e 6f |per%)...|... x_no|
|00001a30| 75 67 68 74 25 2c 79 5f | 6e 6f 75 67 68 74 25 0d |ught%,y_|nought%.|
|00001a40| 07 a8 18 e6 20 30 2c 61 | 78 65 73 5f 63 6f 6c 25 |.... 0,a|xes_col%|
|00001a50| 20 c8 9c 20 31 39 32 0d | 07 b2 0e f4 20 78 20 2d | .. 192.|.... x -|
|00001a60| 20 61 78 69 73 0d 07 bc | 11 e7 20 78 5f 61 78 69 | axis...|.. x_axi|
|00001a70| 73 25 3d 30 20 8c 0d 07 | c6 31 86 20 78 5f 6d 69 |s%=0 ...|.1. x_mi|
|00001a80| 6e 2a 78 5f 73 63 61 6c | 65 2c 78 5f 61 78 69 73 |n*x_scal|e,x_axis|
|00001a90| 25 2c 78 5f 6d 61 78 2a | 78 5f 73 63 61 6c 65 2c |%,x_max*|x_scale,|
|00001aa0| 78 5f 61 78 69 73 25 0d | 07 d0 05 cc 0d 07 da 2e |x_axis%.|........|
|00001ab0| 86 20 78 5f 6d 69 6e 2a | 78 5f 73 63 61 6c 65 2c |. x_min*|x_scale,|
|00001ac0| 78 5f 61 78 69 73 25 2c | 79 5f 61 78 69 73 25 2d |x_axis%,|y_axis%-|
|00001ad0| 33 30 2c 78 5f 61 78 69 | 73 25 0d 07 e4 2e 86 20 |30,x_axi|s%..... |
|00001ae0| 79 5f 61 78 69 73 25 2b | 33 30 2c 78 5f 61 78 69 |y_axis%+|30,x_axi|
|00001af0| 73 25 2c 78 5f 6d 61 78 | 2a 78 5f 73 63 61 6c 65 |s%,x_max|*x_scale|
|00001b00| 2c 78 5f 61 78 69 73 25 | 0d 07 ee 05 cd 0d 07 f8 |,x_axis%|........|
|00001b10| 0e f4 20 59 20 2d 20 61 | 78 69 73 0d 08 02 11 e7 |.. Y - a|xis.....|
|00001b20| 20 79 5f 61 78 69 73 25 | 3d 30 20 8c 0d 08 0c 31 | y_axis%|=0 ....1|
|00001b30| 86 20 79 5f 61 78 69 73 | 25 2c 79 5f 6d 69 6e 2a |. y_axis|%,y_min*|
|00001b40| 79 5f 73 63 61 6c 65 2c | 79 5f 61 78 69 73 25 2c |y_scale,|y_axis%,|
|00001b50| 79 5f 6d 61 78 2a 79 5f | 73 63 61 6c 65 0d 08 16 |y_max*y_|scale...|
|00001b60| 05 cc 0d 08 20 2e 86 20 | 79 5f 61 78 69 73 25 2c |.... .. |y_axis%,|
|00001b70| 79 5f 6d 69 6e 2a 79 5f | 73 63 61 6c 65 2c 79 5f |y_min*y_|scale,y_|
|00001b80| 61 78 69 73 25 2c 78 5f | 61 78 69 73 25 2d 33 30 |axis%,x_|axis%-30|
|00001b90| 0d 08 2a 2e 86 20 79 5f | 61 78 69 73 25 2c 78 5f |..*.. y_|axis%,x_|
|00001ba0| 61 78 69 73 25 2b 33 30 | 2c 79 5f 61 78 69 73 25 |axis%+30|,y_axis%|
|00001bb0| 2c 79 5f 6d 61 78 2a 79 | 5f 73 63 61 6c 65 0d 08 |,y_max*y|_scale..|
|00001bc0| 34 05 cd 0d 08 3e 1b e3 | 49 3d 30 20 b8 20 78 5f |4....>..|I=0 . x_|
|00001bd0| 6d 69 6e 20 88 20 2d 78 | 5f 74 69 63 6b 73 0d 08 |min . -x|_ticks..|
|00001be0| 48 2d 86 20 49 2a 78 5f | 73 63 61 6c 65 2c 78 5f |H-. I*x_|scale,x_|
|00001bf0| 61 78 69 73 25 2d 37 2c | 49 2a 78 5f 73 63 61 6c |axis%-7,|I*x_scal|
|00001c00| 65 2c 78 5f 61 78 69 73 | 25 2b 37 0d 08 52 06 ed |e,x_axis|%+7..R..|
|00001c10| 49 0d 08 5c 1a e3 49 3d | 30 20 b8 20 78 5f 6d 61 |I..\..I=|0 . x_ma|
|00001c20| 78 20 88 20 78 5f 74 69 | 63 6b 73 0d 08 66 2d 86 |x . x_ti|cks..f-.|
|00001c30| 20 49 2a 78 5f 73 63 61 | 6c 65 2c 78 5f 61 78 69 | I*x_sca|le,x_axi|
|00001c40| 73 25 2d 37 2c 49 2a 78 | 5f 73 63 61 6c 65 2c 78 |s%-7,I*x|_scale,x|
|00001c50| 5f 61 78 69 73 25 2b 37 | 0d 08 70 06 ed 49 0d 08 |_axis%+7|..p..I..|
|00001c60| 7a 1b e3 49 3d 30 20 b8 | 20 79 5f 6d 69 6e 20 88 |z..I=0 .| y_min .|
|00001c70| 20 2d 79 5f 74 69 63 6b | 73 0d 08 84 2d 86 20 79 | -y_tick|s...-. y|
|00001c80| 5f 61 78 69 73 25 2d 37 | 2c 49 2a 79 5f 73 63 61 |_axis%-7|,I*y_sca|
|00001c90| 6c 65 2c 79 5f 61 78 69 | 73 25 2b 37 2c 49 2a 79 |le,y_axi|s%+7,I*y|
|00001ca0| 5f 73 63 61 6c 65 0d 08 | 8e 06 ed 49 0d 08 98 1a |_scale..|...I....|
|00001cb0| e3 49 3d 30 20 b8 20 79 | 5f 6d 61 78 20 88 20 79 |.I=0 . y|_max . y|
|00001cc0| 5f 74 69 63 6b 73 0d 08 | a2 2d 86 20 79 5f 61 78 |_ticks..|.-. y_ax|
|00001cd0| 69 73 25 2d 37 2c 49 2a | 79 5f 73 63 61 6c 65 2c |is%-7,I*|y_scale,|
|00001ce0| 79 5f 61 78 69 73 25 2b | 37 2c 49 2a 79 5f 73 63 |y_axis%+|7,I*y_sc|
|00001cf0| 61 6c 65 0d 08 ac 06 ed | 49 0d 08 b6 22 e7 20 ac |ale.....|I...". .|
|00001d00| 28 70 6f 6c 61 72 25 29 | 20 80 20 ac 28 70 61 72 |(polar%)| . .(par|
|00001d10| 61 6d 65 74 72 69 63 25 | 29 20 8c 0d 08 c0 17 ef |ametric%|) ......|
|00001d20| 35 2c 32 33 2c 31 37 2c | 37 2c 36 2c 38 3b 38 3b |5,23,17,|7,6,8;8;|
|00001d30| 30 7c 0d 08 ca 1e ec 20 | 78 5f 6d 69 6e 2a 78 5f |0|..... |x_min*x_|
|00001d40| 73 63 61 6c 65 2c 78 5f | 61 78 69 73 25 2d 31 32 |scale,x_|axis%-12|
|00001d50| 0d 08 d4 0b f1 3b 78 5f | 6d 69 6e 0d 08 de 1e ec |.....;x_|min.....|
|00001d60| 20 78 5f 6d 61 78 2a 78 | 5f 73 63 61 6c 65 2c 78 | x_max*x|_scale,x|
|00001d70| 5f 61 78 69 73 25 2d 31 | 32 0d 08 e8 0b f1 3b 78 |_axis%-1|2.....;x|
|00001d80| 5f 6d 61 78 0d 08 f2 21 | ec 20 79 5f 61 78 69 73 |_max...!|. y_axis|
|00001d90| 25 2b 31 35 2c 79 5f 6d | 69 6e 2a 79 5f 73 63 61 |%+15,y_m|in*y_sca|
|00001da0| 6c 65 2b 31 32 0d 08 fc | 0b f1 3b 79 5f 6d 69 6e |le+12...|..;y_min|
|00001db0| 0d 09 06 21 ec 20 79 5f | 61 78 69 73 25 2b 31 35 |...!. y_|axis%+15|
|00001dc0| 2c 79 5f 6d 61 78 2a 79 | 5f 73 63 61 6c 65 2b 31 |,y_max*y|_scale+1|
|00001dd0| 32 0d 09 10 0b f1 3b 79 | 5f 6d 61 78 0d 09 1a 21 |2.....;y|_max...!|
|00001de0| ec 20 79 5f 61 78 69 73 | 25 2d 33 30 2c 79 5f 6d |. y_axis|%-30,y_m|
|00001df0| 61 78 2a 79 5f 73 63 61 | 6c 65 2b 31 32 0d 09 24 |ax*y_sca|le+12..$|
|00001e00| 08 f1 22 79 22 0d 09 2e | 1e ec 20 78 5f 6d 61 78 |.."y"...|.. x_max|
|00001e10| 2a 78 5f 73 63 61 6c 65 | 2c 78 5f 61 78 69 73 25 |*x_scale|,x_axis%|
|00001e20| 2b 34 30 0d 09 38 08 f1 | 22 78 22 0d 09 42 06 ef |+40..8..|"x"..B..|
|00001e30| 34 0d 09 4c 05 87 0d 09 | 56 05 cd 0d 09 60 05 e1 |4..L....|V....`..|
|00001e40| 0d 09 6a 05 3a 0d 09 74 | 19 dd 20 f2 70 72 69 6e |..j.:..t|.. .prin|
|00001e50| 74 5f 66 75 6e 63 74 69 | 6f 6e 28 46 24 29 0d 09 |t_functi|on(F$)..|
|00001e60| 7e 0a c8 91 20 30 2c 30 | 0d 09 88 26 f2 63 6c 65 |~... 0,0|...&.cle|
|00001e70| 61 72 5f 77 69 6e 64 6f | 77 28 74 65 78 74 25 28 |ar_windo|w(text%(|
|00001e80| 29 2c 62 61 63 6b 67 72 | 6f 75 6e 64 25 29 0d 09 |),backgr|ound%)..|
|00001e90| 92 2c c8 91 20 74 65 78 | 74 25 28 30 29 2b 28 32 |.,.. tex|t%(0)+(2|
|00001ea0| 2a 65 64 67 65 25 29 2c | 74 65 78 74 25 28 31 29 |*edge%),|text%(1)|
|00001eb0| 2b 28 32 2a 65 64 67 65 | 25 29 0d 09 9c 1a e6 20 |+(2*edge|%)..... |
|00001ec0| 30 2c 66 6f 72 65 67 72 | 6f 75 6e 64 25 20 c8 9c |0,foregr|ound% ..|
|00001ed0| 20 31 39 32 0d 09 a6 19 | ef 35 2c 32 33 2c 31 37 | 192....|.5,23,17|
|00001ee0| 2c 37 2c 36 2c 31 32 3b | 31 32 3b 30 7c 0d 09 b0 |,7,6,12;|12;0|...|
|00001ef0| 0a ec 20 30 2c 34 30 0d | 09 ba 12 f1 22 46 75 6e |.. 0,40.|...."Fun|
|00001f00| 63 74 69 6f 6e 3a 22 46 | 24 0d 09 c4 15 ef 32 33 |ction:"F|$.....23|
|00001f10| 2c 31 37 2c 37 2c 36 2c | 38 3b 38 3b 30 7c 0d 09 |,17,7,6,|8;8;0|..|
|00001f20| ce 0c ec 20 39 37 30 2c | 33 30 0d 09 d8 17 f1 22 |... 970,|30....."|
|00001f30| 6d 65 6e 75 20 66 6f 72 | 20 6f 70 74 69 6f 6e 73 |menu for| options|
|00001f40| 22 0d 09 e2 06 ef 34 0d | 09 ec 05 87 0d 09 f6 05 |".....4.|........|
|00001f50| e1 0d 0a 00 05 3a 0d 0a | 0a 35 dd 20 f2 62 75 74 |.....:..|.5. .but|
|00001f60| 74 6f 6e 73 28 f8 20 58 | 25 2c f8 20 59 25 2c f8 |tons(. X|%,. Y%,.|
|00001f70| 20 73 65 6c 65 63 74 25 | 2c f8 20 6d 65 6e 75 25 | select%|,. menu%|
|00001f80| 2c f8 20 61 64 6a 75 73 | 74 25 29 0d 0a 14 0e ea |,. adjus|t%).....|
|00001f90| 20 42 25 2c 74 25 2c 54 | 25 0d 0a 1e 12 c8 97 20 | B%,t%,T|%...... |
|00001fa0| 58 25 2c 59 25 2c 42 25 | 2c 74 25 0d 0a 28 1f f4 |X%,Y%,B%|,t%..(..|
|00001fb0| 20 43 6c 65 61 72 20 6d | 6f 75 73 65 20 62 75 74 | Clear m|ouse but|
|00001fc0| 74 6f 6e 20 62 75 66 66 | 65 72 0d 0a 32 0b 2a 46 |ton buff|er..2.*F|
|00001fd0| 58 32 31 2c 39 0d 0a 3c | 29 f4 20 57 61 69 74 20 |X21,9..<|). Wait |
|00001fe0| 66 6f 72 20 30 2e 31 73 | 20 66 6f 72 20 6e 65 78 |for 0.1s| for nex|
|00001ff0| 74 20 62 75 74 74 6f 6e | 20 70 72 65 73 73 0d 0a |t button| press..|
|00002000| 46 05 f5 0d 0a 50 12 c8 | 97 20 58 25 2c 59 25 2c |F....P..|. X%,Y%,|
|00002010| 42 25 2c 54 25 0d 0a 5a | 0d fd 54 25 3e 74 25 2b |B%,T%..Z|..T%>t%+|
|00002020| 31 30 0d 0a 64 0f c8 97 | 20 58 25 2c 59 25 2c 42 |10..d...| X%,Y%,B|
|00002030| 25 0d 0a 6e 0d 73 65 6c | 65 63 74 25 3d a3 0d 0a |%..n.sel|ect%=...|
|00002040| 78 0b 6d 65 6e 75 25 3d | a3 0d 0a 82 0d 61 64 6a |x.menu%=|.....adj|
|00002050| 75 73 74 25 3d a3 0d 0a | 8c 1d e7 20 28 42 25 20 |ust%=...|... (B% |
|00002060| 80 20 31 29 20 3e 30 20 | 8c 20 61 64 6a 75 73 74 |. 1) >0 |. adjust|
|00002070| 25 3d b9 0d 0a 96 1b e7 | 20 28 42 25 20 80 20 32 |%=......| (B% . 2|
|00002080| 29 20 3e 30 20 8c 20 6d | 65 6e 75 25 3d b9 0d 0a |) >0 . m|enu%=...|
|00002090| a0 1d e7 20 28 42 25 20 | 80 20 34 29 20 3e 30 20 |... (B% |. 4) >0 |
|000020a0| 8c 20 73 65 6c 65 63 74 | 25 3d b9 0d 0a aa 05 e1 |. select|%=......|
|000020b0| 0d 0a b4 05 3a 0d 0a be | 0c dd 20 f2 53 74 61 72 |....:...|.. .Star|
|000020c0| 74 0d 0a c8 27 ea 20 58 | 25 2c 59 25 2c 73 65 6c |t...'. X|%,Y%,sel|
|000020d0| 65 63 74 25 2c 6d 65 6e | 75 25 2c 61 64 6a 75 73 |ect%,men|u%,adjus|
|000020e0| 74 25 2c 71 75 69 74 25 | 0d 0a d2 0b 71 75 69 74 |t%,quit%|....quit|
|000020f0| 25 3d a3 0d 0a dc 08 58 | 25 3d 30 0d 0a e6 08 59 |%=.....X|%=0....Y|
|00002100| 25 3d 30 0d 0a f0 0a c8 | 91 20 30 2c 30 0d 0a fa |%=0.....|. 0,0...|
|00002110| 17 64 69 73 70 6c 61 79 | 5f 66 75 6e 63 74 69 6f |.display|_functio|
|00002120| 6e 25 3d a3 0d 0b 04 05 | f5 0d 0b 0e 05 3a 0d 0b |n%=.....|.....:..|
|00002130| 18 23 e7 20 73 65 6c 65 | 63 74 25 20 84 20 64 69 |.#. sele|ct% . di|
|00002140| 73 70 6c 61 79 5f 66 75 | 6e 63 74 69 6f 6e 25 20 |splay_fu|nction% |
|00002150| 8c 0d 0b 22 21 e7 20 63 | 61 72 74 65 73 69 61 6e |..."!. c|artesian|
|00002160| 25 20 8c 20 44 46 24 3d | 22 59 20 3d 20 22 2b 44 |% . DF$=|"Y = "+D|
|00002170| 43 24 0d 0b 2c 31 e7 20 | 70 61 72 61 6d 65 74 72 |C$..,1. |parametr|
|00002180| 69 63 25 20 8c 20 44 46 | 24 3d 22 58 20 3d 20 22 |ic% . DF|$="X = "|
|00002190| 2b 44 50 58 24 2b 22 20 | 3a 59 20 3d 20 22 2b 44 |+DPX$+" |:Y = "+D|
|000021a0| 50 59 24 0d 0b 36 1d e7 | 20 70 6f 6c 61 72 25 20 |PY$..6..| polar% |
|000021b0| 8c 20 44 46 24 3d 22 52 | 20 3d 20 22 2b 44 50 24 |. DF$="R| = "+DP$|
|000021c0| 0d 0b 40 18 f2 70 72 69 | 6e 74 5f 66 75 6e 63 74 |..@..pri|nt_funct|
|000021d0| 69 6f 6e 28 44 46 24 29 | 0d 0b 4a 17 64 69 73 70 |ion(DF$)|..J.disp|
|000021e0| 6c 61 79 5f 66 75 6e 63 | 74 69 6f 6e 25 3d a3 0d |lay_func|tion%=..|
|000021f0| 0b 54 05 cd 0d 0b 5e 29 | f2 62 75 74 74 6f 6e 73 |.T....^)|.buttons|
|00002200| 28 58 25 2c 59 25 2c 73 | 65 6c 65 63 74 25 2c 6d |(X%,Y%,s|elect%,m|
|00002210| 65 6e 75 25 2c 61 64 6a | 75 73 74 25 29 0d 0b 68 |enu%,adj|ust%)..h|
|00002220| 45 e7 20 6d 65 6e 75 25 | 20 8c 20 f2 6d 65 6e 75 |E. menu%| . .menu|
|00002230| 5f 6f 70 74 69 6f 6e 73 | 3a f2 6d 65 6e 75 3a e7 |_options|:.menu:.|
|00002240| 20 ac 64 69 73 70 6c 61 | 79 5f 66 75 6e 63 74 69 | .displa|y_functi|
|00002250| 6f 6e 25 20 8c 20 f2 70 | 72 69 6e 74 5f 74 69 74 |on% . .p|rint_tit|
|00002260| 6c 65 0d 0b 72 25 e7 20 | 61 64 6a 75 73 74 25 20 |le..r%. |adjust% |
|00002270| 80 20 ac 71 75 69 74 25 | 20 8c 20 f2 70 72 69 6e |. .quit%| . .prin|
|00002280| 74 5f 74 69 74 6c 65 0d | 0b 7c 0a fd 71 75 69 74 |t_title.|.|..quit|
|00002290| 25 0d 0b 86 05 e1 0d 0b | 90 05 3a 0d 0b 9a 13 dd |%.......|..:.....|
|000022a0| 20 f2 6d 65 6e 75 5f 6f | 70 74 69 6f 6e 73 0d 0b | .menu_o|ptions..|
|000022b0| a4 08 ea 20 49 25 0d 0b | ae 0a c8 91 20 30 2c 30 |... I%..|.... 0,0|
|000022c0| 0d 0b b8 26 f2 63 6c 65 | 61 72 5f 77 69 6e 64 6f |...&.cle|ar_windo|
|000022d0| 77 28 74 65 78 74 25 28 | 29 2c 62 61 63 6b 67 72 |w(text%(|),backgr|
|000022e0| 6f 75 6e 64 25 29 0d 0b | c2 2c c8 91 20 74 65 78 |ound%)..|.,.. tex|
|000022f0| 74 25 28 30 29 2b 28 32 | 2a 65 64 67 65 25 29 2c |t%(0)+(2|*edge%),|
|00002300| 74 65 78 74 25 28 31 29 | 2b 28 32 2a 65 64 67 65 |text%(1)|+(2*edge|
|00002310| 25 29 0d 0b cc 1a e6 20 | 30 2c 66 6f 72 65 67 72 |%)..... |0,foregr|
|00002320| 6f 75 6e 64 25 20 c8 9c | 20 31 39 32 0d 0b d6 19 |ound% ..| 192....|
|00002330| ef 35 2c 32 33 2c 31 37 | 2c 37 2c 36 2c 31 32 3b |.5,23,17|,7,6,12;|
|00002340| 31 32 3b 30 7c 0d 0b e0 | 1a e3 49 25 3d 30 20 b8 |12;0|...|..I%=0 .|
|00002350| 20 6e 6f 5f 6f 66 5f 6f | 70 74 69 6f 6e 73 25 0d | no_of_o|ptions%.|
|00002360| 0b ea 14 ec 20 6f 70 74 | 69 6f 6e 25 28 49 25 29 |.... opt|ion%(I%)|
|00002370| 2c 34 30 0d 0b f4 10 f1 | 6f 70 74 69 6f 6e 24 28 |,40.....|option$(|
|00002380| 49 25 29 0d 0b fe 07 ed | 49 25 0d 0c 08 07 ef 20 |I%).....|I%..... |
|00002390| 34 0d 0c 12 05 87 0d 0c | 1c 05 e1 0d 0c 26 05 3a |4.......|.....&.:|
|000023a0| 0d 0c 30 12 dd 20 f2 70 | 72 69 6e 74 5f 74 69 74 |..0.. .p|rint_tit|
|000023b0| 6c 65 0d 0c 3a 0a c8 91 | 20 30 2c 30 0d 0c 44 26 |le..:...| 0,0..D&|
|000023c0| f2 63 6c 65 61 72 5f 77 | 69 6e 64 6f 77 28 74 65 |.clear_w|indow(te|
|000023d0| 78 74 25 28 29 2c 62 61 | 63 6b 67 72 6f 75 6e 64 |xt%(),ba|ckground|
|000023e0| 25 29 0d 0c 4e 2c c8 91 | 20 74 65 78 74 25 28 30 |%)..N,..| text%(0|
|000023f0| 29 2b 28 32 2a 65 64 67 | 65 25 29 2c 74 65 78 74 |)+(2*edg|e%),text|
|00002400| 25 28 31 29 2b 28 32 2a | 65 64 67 65 25 29 0d 0c |%(1)+(2*|edge%)..|
|00002410| 58 1a e6 20 30 2c 66 6f | 72 65 67 72 6f 75 6e 64 |X.. 0,fo|reground|
|00002420| 25 20 c8 9c 20 31 39 32 | 0d 0c 62 19 ef 35 2c 32 |% .. 192|..b..5,2|
|00002430| 33 2c 31 37 2c 37 2c 36 | 2c 31 32 3b 31 32 3b 30 |3,17,7,6|,12;12;0|
|00002440| 7c 0d 0c 6c 0a ec 20 30 | 2c 34 30 0d 0c 76 15 f1 ||..l.. 0|,40..v..|
|00002450| 22 43 75 72 76 65 20 50 | 6c 6f 74 74 65 72 22 3b |"Curve P|lotter";|
|00002460| 0d 0c 80 15 ef 32 33 2c | 31 37 2c 37 2c 36 2c 38 |.....23,|17,7,6,8|
|00002470| 3b 38 3b 30 7c 0d 0c 8a | 10 e7 20 ac 28 71 75 69 |;8;0|...|.. .(qui|
|00002480| 74 25 29 20 8c 0d 0c 94 | 0c ec 20 38 30 30 2c 35 |t%) ....|.. 800,5|
|00002490| 30 0d 0c 9e 17 f1 22 6d | 65 6e 75 20 66 6f 72 20 |0....."m|enu for |
|000024a0| 6f 70 74 69 6f 6e 73 22 | 0d 0c a8 0c ec 20 38 30 |options"|..... 80|
|000024b0| 30 2c 31 30 0d 0c b2 1a | f1 22 73 65 6c 65 63 74 |0,10....|."select|
|000024c0| 20 66 6f 72 20 66 75 6e | 63 74 69 6f 6e 22 0d 0c | for fun|ction"..|
|000024d0| bc 05 cc 0d 0c c6 0c ec | 20 38 30 30 2c 33 30 0d |........| 800,30.|
|000024e0| 0c d0 14 f1 22 41 72 65 | 20 59 6f 75 20 53 75 72 |...."Are| You Sur|
|000024f0| 65 3f 22 0d 0c da 0e 2a | 50 4f 49 4e 54 45 52 20 |e?"....*|POINTER |
|00002500| 31 0d 0c e4 1d c8 99 20 | 22 4f 53 5f 43 6f 6e 66 |1...... |"OS_Conf|
|00002510| 69 72 6d 22 20 b8 20 3b | 66 6c 61 67 73 25 0d 0c |irm" . ;|flags%..|
|00002520| ee 21 e7 20 ac 28 28 66 | 6c 61 67 73 25 20 80 20 |.!. .((f|lags% . |
|00002530| 34 29 3e 30 29 20 8c 20 | 71 75 69 74 25 3d a3 0d |4)>0) . |quit%=..|
|00002540| 0c f8 0e 2a 50 4f 49 4e | 54 45 52 20 30 0d 0d 02 |...*POIN|TER 0...|
|00002550| 0d 61 64 6a 75 73 74 25 | 3d b9 0d 0d 0c 05 cd 0d |.adjust%|=.......|
|00002560| 0d 16 06 ef 34 0d 0d 20 | 05 87 0d 0d 2a 05 e1 0d |....4.. |....*...|
|00002570| 0d 34 05 3a 0d 0d 3e 0b | dd 20 f2 6d 65 6e 75 0d |.4.:..>.|. .menu.|
|00002580| 0d 48 29 ea 20 58 25 2c | 59 25 2c 73 65 6c 65 63 |.H). X%,|Y%,selec|
|00002590| 74 25 2c 6d 65 6e 75 25 | 2c 61 64 6a 75 73 74 25 |t%,menu%|,adjust%|
|000025a0| 2c 6f 70 74 69 6f 6e 24 | 0d 0d 52 08 58 25 3d 30 |,option$|..R.X%=0|
|000025b0| 0d 0d 5c 08 59 25 3d 30 | 0d 0d 66 0a c8 91 20 30 |..\.Y%=0|..f... 0|
|000025c0| 2c 30 0d 0d 70 08 c8 97 | 20 ee 0d 0d 7a 5f c8 97 |,0..p...| ...z_..|
|000025d0| 20 c8 93 20 74 65 78 74 | 25 28 30 29 2b 65 64 67 | .. text|%(0)+edg|
|000025e0| 65 25 2c 74 65 78 74 25 | 28 31 29 2b 65 64 67 65 |e%,text%|(1)+edge|
|000025f0| 25 2c 74 65 78 74 25 28 | 32 29 2d 74 65 78 74 25 |%,text%(|2)-text%|
|00002600| 28 30 29 2d 28 32 2a 65 | 64 67 65 25 29 2c 74 65 |(0)-(2*e|dge%),te|
|00002610| 78 74 25 28 33 29 2d 74 | 65 78 74 25 28 31 29 2d |xt%(3)-t|ext%(1)-|
|00002620| 28 32 2a 65 64 67 65 25 | 29 0d 0d 84 1a c8 97 20 |(2*edge%|)...... |
|00002630| b8 20 74 65 78 74 25 28 | 30 29 2c 74 65 78 74 25 |. text%(|0),text%|
|00002640| 28 31 29 0d 0d 8e 05 f5 | 0d 0d 98 29 f2 62 75 74 |(1).....|...).but|
|00002650| 74 6f 6e 73 28 58 25 2c | 59 25 2c 73 65 6c 65 63 |tons(X%,|Y%,selec|
|00002660| 74 25 2c 6d 65 6e 75 25 | 2c 61 64 6a 75 73 74 25 |t%,menu%|,adjust%|
|00002670| 29 0d 0d a2 0f e7 20 73 | 65 6c 65 63 74 25 20 8c |)..... s|elect% .|
|00002680| 0d 0d ac 1b e3 20 49 25 | 3d 30 20 b8 20 6e 6f 5f |..... I%|=0 . no_|
|00002690| 6f 66 5f 6f 70 74 69 6f | 6e 73 25 0d 0d b6 3d e7 |of_optio|ns%...=.|
|000026a0| 20 58 25 3e 6f 70 74 69 | 6f 6e 25 28 49 25 29 20 | X%>opti|on%(I%) |
|000026b0| 80 20 58 25 3c 6f 70 74 | 69 6f 6e 25 28 49 25 2b |. X%<opt|ion%(I%+|
|000026c0| 31 29 20 8c 20 6f 70 74 | 69 6f 6e 24 3d 6f 70 74 |1) . opt|ion$=opt|
|000026d0| 69 6f 6e 24 28 49 25 29 | 0d 0d c0 07 ed 49 25 0d |ion$(I%)|.....I%.|
|000026e0| 0d ca 07 ef 32 36 0d 0d | d4 10 c8 8e 20 6f 70 74 |....26..|.... opt|
|000026f0| 69 6f 6e 24 20 ca 0d 0d | de 0f c9 20 22 43 6f 6c |ion$ ...|... "Col|
|00002700| 6f 75 72 73 22 0d 0d e8 | 0c f2 43 6f 6c 6f 75 72 |ours"...|..Colour|
|00002710| 73 0d 0d f2 0d c9 20 22 | 43 6c 65 61 72 22 0d 0d |s..... "|Clear"..|
|00002720| fc 0a f2 43 6c 65 61 72 | 0d 0e 06 11 c9 20 22 4e |...Clear|..... "N|
|00002730| 65 77 20 67 72 61 70 68 | 22 0d 0e 10 0e f2 4e 65 |ew graph|".....Ne|
|00002740| 77 5f 47 72 61 70 68 0d | 0e 1a 0f c9 20 22 52 65 |w_Graph.|.... "Re|
|00002750| 73 63 61 6c 65 22 0d 0e | 24 0c f2 52 65 73 63 61 |scale"..|$..Resca|
|00002760| 6c 65 0d 0e 2e 0c c9 20 | 22 50 6c 6f 74 22 0d 0e |le..... |"Plot"..|
|00002770| 38 07 f2 47 6f 0d 0e 42 | 0c c9 20 22 51 75 69 74 |8..Go..B|.. "Quit|
|00002780| 22 0d 0e 4c 09 f2 51 75 | 69 74 0d 0e 56 05 cb 0d |"..L..Qu|it..V...|
|00002790| 0e 60 05 cd 0d 0e 6a 14 | fd 71 75 69 74 25 20 84 |.`....j.|.quit% .|
|000027a0| 20 61 64 6a 75 73 74 25 | 0d 0e 74 08 c8 97 20 87 | adjust%|..t... .|
|000027b0| 0d 0e 7e 05 e1 0d 0e 88 | 05 3a 0d 0e 92 48 f4 20 |..~.....|.:...H. |
|000027c0| 49 20 68 61 76 65 20 75 | 73 65 64 20 61 20 75 73 |I have u|sed a us|
|000027d0| 65 72 20 73 70 72 69 74 | 65 20 27 62 6f 78 30 27 |er sprit|e 'box0'|
|000027e0| 20 74 6f 20 73 74 6f 72 | 65 20 74 68 65 20 6f 72 | to stor|e the or|
|000027f0| 69 67 69 6e 61 6c 20 63 | 6f 6e 74 65 6e 74 73 20 |iginal c|ontents |
|00002800| 6f 66 0d 0e 9c 24 f4 20 | 74 68 65 20 73 63 72 65 |of...$. |the scre|
|00002810| 65 6e 2c 20 28 50 52 4f | 43 6f 70 65 6e 5f 77 69 |en, (PRO|Copen_wi|
|00002820| 6e 64 6f 77 29 2e 0d 0e | a6 38 f4 20 54 68 65 6e |ndow)...|.8. Then|
|00002830| 20 63 72 65 61 74 65 64 | 20 74 68 65 20 62 6c 61 | created| the bla|
|00002840| 6e 6b 20 77 69 6e 64 6f | 77 2c 20 28 50 52 4f 43 |nk windo|w, (PROC|
|00002850| 63 6c 65 61 72 5f 77 69 | 6e 64 6f 77 29 2e 0d 0e |clear_wi|ndow)...|
|00002860| b0 31 f4 20 54 68 65 6e | 20 49 20 68 61 76 65 20 |.1. Then| I have |
|00002870| 75 73 65 64 20 69 74 20 | 66 6f 72 20 77 68 61 74 |used it |for what|
|00002880| 65 76 65 72 20 69 73 20 | 6e 65 65 64 65 64 2e 0d |ever is |needed..|
|00002890| 0e ba 46 f4 20 46 69 6e | 61 6c 6c 79 2c 20 49 20 |..F. Fin|ally, I |
|000028a0| 68 61 76 65 20 72 65 73 | 74 6f 72 65 64 20 74 68 |have res|tored th|
|000028b0| 65 20 6f 72 69 67 69 6e | 61 6c 20 77 69 6e 64 6f |e origin|al windo|
|000028c0| 77 2c 20 28 50 52 4f 43 | 63 6c 6f 73 65 5f 77 69 |w, (PROC|close_wi|
|000028d0| 6e 64 6f 77 29 0d 0e c4 | 29 f4 20 77 68 69 63 68 |ndow)...|). which|
|000028e0| 20 6f 76 65 72 77 72 69 | 74 65 73 20 74 68 65 20 | overwri|tes the |
|000028f0| 77 69 6e 64 6f 77 20 49 | 20 75 73 65 64 2e 0d 0e |window I| used...|
|00002900| ce 4b f4 20 54 68 65 20 | 77 68 6f 6c 65 20 70 72 |.K. The |whole pr|
|00002910| 6f 63 65 73 73 20 69 73 | 20 63 6f 6e 74 72 6f 6c |ocess is| control|
|00002920| 6c 65 64 20 62 79 20 74 | 77 6f 20 50 52 4f 43 73 |led by t|wo PROCs|
|00002930| 20 2d 20 77 69 6e 64 6f | 77 5f 6f 6e 20 26 20 77 | - windo|w_on & w|
|00002940| 69 6e 64 6f 77 5f 6f 66 | 66 0d 0e d8 05 3a 0d 0e |indow_of|f....:..|
|00002950| e2 45 f4 20 6f 70 65 6e | 20 77 69 6e 64 6f 77 20 |.E. open| window |
|00002960| 6e 75 6d 62 65 72 20 4e | 25 2c 20 6c 65 66 74 20 |number N|%, left |
|00002970| 78 2d 63 6f 6f 72 64 20 | 61 25 28 30 29 2c 20 62 |x-coord |a%(0), b|
|00002980| 6f 74 74 6f 6d 20 79 2d | 63 6f 6f 72 64 20 61 25 |ottom y-|coord a%|
|00002990| 28 31 29 0d 0e ec 42 f4 | 20 28 73 65 65 20 50 2e |(1)...B.| (see P.|
|000029a0| 33 39 33 20 6f 66 20 72 | 65 66 31 29 20 20 20 72 |393 of r|ef1) r|
|000029b0| 69 67 68 74 20 78 2d 63 | 6f 6f 72 64 20 61 25 28 |ight x-c|oord a%(|
|000029c0| 32 29 2c 20 74 6f 70 20 | 79 2d 63 6f 6f 72 64 20 |2), top |y-coord |
|000029d0| 61 25 28 33 29 0d 0e f6 | 1b dd 20 f2 6f 70 65 6e |a%(3)...|.. .open|
|000029e0| 5f 77 69 6e 64 6f 77 28 | 61 25 28 29 2c 4e 25 29 |_window(|a%(),N%)|
|000029f0| 0d 0f 00 4b c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |...K.. "|OS_Sprit|
|00002a00| 65 4f 70 22 2c 32 37 32 | 2c 77 69 6e 64 6f 77 5f |eOp",272|,window_|
|00002a10| 61 72 65 61 25 2c 22 62 | 6f 78 22 2b c3 28 4e 25 |area%,"b|ox"+.(N%|
|00002a20| 29 2c 30 2c 61 25 28 30 | 29 2c 61 25 28 31 29 2c |),0,a%(0|),a%(1),|
|00002a30| 61 25 28 32 29 2c 61 25 | 28 33 29 0d 0f 0a 05 e1 |a%(2),a%|(3).....|
|00002a40| 0d 0f 14 05 3a 0d 0f 1e | 46 f4 20 63 6c 6f 73 65 |....:...|F. close|
|00002a50| 20 77 69 6e 64 6f 77 20 | 6e 75 6d 62 65 72 20 4e | window |number N|
|00002a60| 25 2c 20 6c 65 66 74 20 | 78 2d 63 6f 6f 72 64 20 |%, left |x-coord |
|00002a70| 61 25 28 30 29 2c 20 62 | 6f 74 74 6f 6d 20 79 2d |a%(0), b|ottom y-|
|00002a80| 63 6f 6f 72 64 20 61 25 | 28 31 29 0d 0f 28 1c dd |coord a%|(1)..(..|
|00002a90| 20 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 61 | .close_|window(a|
|00002aa0| 25 28 29 2c 4e 25 29 0d | 0f 32 3f c8 99 20 22 4f |%(),N%).|.2?.. "O|
|00002ab0| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 32 39 30 2c |S_Sprite|Op",290,|
|00002ac0| 77 69 6e 64 6f 77 5f 61 | 72 65 61 25 2c 22 62 6f |window_a|rea%,"bo|
|00002ad0| 78 22 2b c3 28 4e 25 29 | 2c 61 25 28 30 29 2c 61 |x"+.(N%)|,a%(0),a|
|00002ae0| 25 28 31 29 2c 30 0d 0f | 3c 22 f4 20 64 65 6c 65 |%(1),0..|<". dele|
|00002af0| 74 65 20 73 70 72 69 74 | 65 20 66 72 6f 6d 20 75 |te sprit|e from u|
|00002b00| 73 65 72 20 61 72 65 61 | 0d 0f 46 31 c8 99 20 22 |ser area|..F1.. "|
|00002b10| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 32 38 31 |OS_Sprit|eOp",281|
|00002b20| 2c 77 69 6e 64 6f 77 5f | 61 72 65 61 25 2c 22 62 |,window_|area%,"b|
|00002b30| 6f 78 22 2b c3 28 4e 25 | 29 0d 0f 50 05 e1 0d 0f |ox"+.(N%|)..P....|
|00002b40| 5a 05 3a 0d 0f 64 1f dd | 20 f2 77 69 6e 64 6f 77 |Z.:..d..| .window|
|00002b50| 5f 6f 6e 28 61 25 28 29 | 2c 63 25 2c 6d 25 2c 6e |_on(a%()|,c%,m%,n|
|00002b60| 25 29 0d 0f 6e 19 f2 6f | 70 65 6e 5f 77 69 6e 64 |%)..n..o|pen_wind|
|00002b70| 6f 77 28 61 25 28 29 2c | 6e 25 29 0d 0f 78 1a f2 |ow(a%(),|n%)..x..|
|00002b80| 63 6c 65 61 72 5f 77 69 | 6e 64 6f 77 28 61 25 28 |clear_wi|ndow(a%(|
|00002b90| 29 2c 63 25 29 0d 0f 82 | 0a e7 20 6d 25 20 8c 0d |),c%)...|.. m% ..|
|00002ba0| 0f 8c 4d c8 97 20 c8 93 | 20 61 25 28 30 29 2b 65 |..M.. ..| a%(0)+e|
|00002bb0| 64 67 65 25 2c 61 25 28 | 31 29 2b 65 64 67 65 25 |dge%,a%(|1)+edge%|
|00002bc0| 2c 61 25 28 32 29 2d 61 | 25 28 30 29 2d 28 32 2a |,a%(2)-a|%(0)-(2*|
|00002bd0| 65 64 67 65 25 29 2c 61 | 25 28 33 29 2d 61 25 28 |edge%),a|%(3)-a%(|
|00002be0| 31 29 2d 28 32 2a 65 64 | 67 65 25 29 0d 0f 96 38 |1)-(2*ed|ge%)...8|
|00002bf0| ef 32 34 2c 61 25 28 30 | 29 2b 65 64 67 65 25 3b |.24,a%(0|)+edge%;|
|00002c00| 61 25 28 31 29 2b 65 64 | 67 65 25 3b 61 25 28 32 |a%(1)+ed|ge%;a%(2|
|00002c10| 29 2d 65 64 67 65 25 3b | 61 25 28 33 29 2d 65 64 |)-edge%;|a%(3)-ed|
|00002c20| 67 65 25 3b 0d 0f a0 1d | c8 91 61 25 28 30 29 2b |ge%;....|..a%(0)+|
|00002c30| 65 64 67 65 25 2c 61 25 | 28 31 29 2b 65 64 67 65 |edge%,a%|(1)+edge|
|00002c40| 25 0d 0f aa 05 cd 0d 0f | b4 05 e1 0d 0f be 05 3a |%.......|.......:|
|00002c50| 0d 0f c8 1a dd 20 f2 77 | 69 6e 64 6f 77 5f 6f 66 |..... .w|indow_of|
|00002c60| 66 28 61 25 28 29 2c 6e | 25 29 0d 0f d2 1a f2 63 |f(a%(),n|%).....c|
|00002c70| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 61 25 28 29 |lose_win|dow(a%()|
|00002c80| 2c 6e 25 29 0d 0f dc 05 | e1 0d 0f e6 05 3a 0d 0f |,n%)....|.....:..|
|00002c90| f0 21 dd 20 f2 63 6c 65 | 61 72 5f 77 69 6e 64 6f |.!. .cle|ar_windo|
|00002ca0| 77 28 61 25 28 29 2c 63 | 6f 6c 6f 75 72 25 29 0d |w(a%(),c|olour%).|
|00002cb0| 0f fa 12 f4 20 77 69 6e | 64 6f 77 20 66 72 61 6d |.... win|dow fram|
|00002cc0| 65 0d 10 04 13 e6 30 2c | 63 6f 6c 6f 75 72 25 20 |e.....0,|colour% |
|00002cd0| c8 9c 20 30 0d 10 0e 2d | c8 93 20 c8 90 20 61 25 |.. 0...-|.. .. a%|
|00002ce0| 28 30 29 2c 61 25 28 31 | 29 2c 61 25 28 32 29 2d |(0),a%(1|),a%(2)-|
|00002cf0| 61 25 28 30 29 2c 61 25 | 28 33 29 2d 61 25 28 31 |a%(0),a%|(3)-a%(1|
|00002d00| 29 0d 10 18 11 f4 20 6d | 61 69 6e 20 77 69 6e 64 |)..... m|ain wind|
|00002d10| 6f 77 0d 10 22 15 e6 30 | 2c 63 6f 6c 6f 75 72 25 |ow.."..0|,colour%|
|00002d20| 20 c8 9c 20 31 32 38 0d | 10 2c 4d c8 93 20 c8 90 | .. 128.|.,M.. ..|
|00002d30| 20 61 25 28 30 29 2b 65 | 64 67 65 25 2c 61 25 28 | a%(0)+e|dge%,a%(|
|00002d40| 31 29 2b 65 64 67 65 25 | 2c 61 25 28 32 29 2d 61 |1)+edge%|,a%(2)-a|
|00002d50| 25 28 30 29 2d 28 32 2a | 65 64 67 65 25 29 2c 61 |%(0)-(2*|edge%),a|
|00002d60| 25 28 33 29 2d 61 25 28 | 31 29 2d 28 32 2a 65 64 |%(3)-a%(|1)-(2*ed|
|00002d70| 67 65 25 29 0d 10 36 05 | e1 0d 10 40 05 3a 0d 10 |ge%)..6.|...@.:..|
|00002d80| 4a 0e dd 20 f2 43 6f 6c | 6f 75 72 73 0d 10 54 24 |J.. .Col|ours..T$|
|00002d90| ea 20 4f 25 2c 4f 70 74 | 25 2c 76 61 6c 24 2c 57 |. O%,Opt|%,val$,W|
|00002da0| 25 2c 48 25 2c 65 6e 64 | 25 2c 63 6c 65 61 72 25 |%,H%,end|%,clear%|
|00002db0| 0d 10 5e 0a 65 6e 64 25 | 3d a3 0d 10 68 0c 63 6c |..^.end%|=...h.cl|
|00002dc0| 65 61 72 25 3d a3 0d 10 | 72 05 f5 0d 10 7c 0a f7 |ear%=...|r....|..|
|00002dd0| 20 8d 44 70 52 0d 10 86 | 0a f3 20 4f 70 74 25 0d | .DpR...|.. Opt%.|
|00002de0| 10 90 2a f2 77 69 6e 64 | 6f 77 5f 6f 6e 28 43 6f |..*.wind|ow_on(Co|
|00002df0| 6c 6f 75 72 73 25 28 29 | 2c 77 69 6e 64 6f 77 5f |lours%()|,window_|
|00002e00| 63 6f 6c 25 2c b9 2c 30 | 29 0d 10 9a 08 4f 25 3d |col%,.,0|)....O%=|
|00002e10| 30 0d 10 a4 05 f5 0d 10 | ae 1c f3 20 6f 70 74 24 |0.......|... opt$|
|00002e20| 28 4f 25 29 2c 6f 70 74 | 25 28 4f 25 29 2c 76 61 |(O%),opt|%(O%),va|
|00002e30| 6c 24 0d 10 b8 2d e7 20 | 76 61 6c 24 3c 3e 22 22 |l$...-. |val$<>""|
|00002e40| 20 8c 20 6f 70 74 24 28 | 4f 25 29 3d 6f 70 74 24 | . opt$(|O%)=opt$|
|00002e50| 28 4f 25 29 2b c3 28 a0 | 28 76 61 6c 24 29 29 0d |(O%)+.(.|(val$)).|
|00002e60| 10 c2 09 4f 25 2b 3d 31 | 0d 10 cc 0c fd 4f 25 3e |...O%+=1|.....O%>|
|00002e70| 4f 70 74 25 0d 10 d6 28 | 57 25 3d 43 6f 6c 6f 75 |Opt%...(|W%=Colou|
|00002e80| 72 73 25 28 32 29 2d 43 | 6f 6c 6f 75 72 73 25 28 |rs%(2)-C|olours%(|
|00002e90| 30 29 2d 28 32 2a 65 64 | 67 65 25 29 0d 10 e0 28 |0)-(2*ed|ge%)...(|
|00002ea0| 48 25 3d 43 6f 6c 6f 75 | 72 73 25 28 33 29 2d 43 |H%=Colou|rs%(3)-C|
|00002eb0| 6f 6c 6f 75 72 73 25 28 | 31 29 2d 28 32 2a 65 64 |olours%(|1)-(2*ed|
|00002ec0| 67 65 25 29 0d 10 ea 17 | ef 35 2c 32 33 2c 31 37 |ge%)....|.5,23,17|
|00002ed0| 2c 37 2c 36 2c 38 3b 38 | 3b 30 7c 0d 10 f4 08 4f |,7,6,8;8|;0|....O|
|00002ee0| 25 3d 30 0d 10 fe 17 e6 | 30 2c 77 69 6e 64 6f 77 |%=0.....|0,window|
|00002ef0| 5f 74 65 78 74 5f 63 6f | 6c 25 0d 11 08 05 f5 0d |_text_co|l%......|
|00002f00| 11 12 13 ec 20 30 2c 48 | 25 2d 6f 70 74 25 28 4f |.... 0,H|%-opt%(O|
|00002f10| 25 29 0d 11 1c 0d f1 6f | 70 74 24 28 4f 25 29 0d |%).....o|pt$(O%).|
|00002f20| 11 26 09 4f 25 2b 3d 31 | 0d 11 30 0c fd 4f 25 3e |.&.O%+=1|..0..O%>|
|00002f30| 4f 70 74 25 0d 11 3a 05 | f5 0d 11 44 29 4f 25 3d |Opt%..:.|...D)O%=|
|00002f40| a4 77 68 69 63 68 5f 6f | 70 74 69 6f 6e 28 48 25 |.which_o|ption(H%|
|00002f50| 2d a4 6f 70 74 69 6f 6e | 5f 70 6f 73 69 74 69 6f |-.option|_positio|
|00002f60| 6e 29 0d 11 4e 15 fd 4f | 25 3e 3d 30 20 80 20 4f |n)..N..O|%>=0 . O|
|00002f70| 25 3c 3d 4f 70 74 25 0d | 11 58 1d e6 30 2c 31 32 |%<=Opt%.|.X..0,12|
|00002f80| 38 2b 77 69 6e 64 6f 77 | 5f 63 6f 6c 25 20 c8 9c |8+window|_col% ..|
|00002f90| 20 31 32 38 0d 11 62 0b | c8 8e 20 4f 25 20 ca 0d | 128..b.|.. O% ..|
|00002fa0| 11 6c 07 c9 20 30 0d 11 | 76 0c 63 6c 65 61 72 25 |.l.. 0..|v.clear%|
|00002fb0| 3d b9 0d 11 80 34 67 72 | 61 70 68 5f 70 61 70 65 |=....4gr|aph_pape|
|00002fc0| 72 25 3d a4 69 6e 70 75 | 74 5f 6e 75 6d 62 65 72 |r%=.inpu|t_number|
|00002fd0| 28 6f 70 74 24 28 30 29 | 2c 30 2c 48 25 2d 6f 70 |(opt$(0)|,0,H%-op|
|00002fe0| 74 25 28 30 29 29 0d 11 | 8a 3c e7 20 ac 28 a4 63 |t%(0))..|.<. .(.c|
|00002ff0| 68 65 63 6b 5f 63 6f 6c | 6f 75 72 5f 72 61 6e 67 |heck_col|our_rang|
|00003000| 65 28 67 72 61 70 68 5f | 70 61 70 65 72 25 29 29 |e(graph_|paper%))|
|00003010| 20 8c 20 67 72 61 70 68 | 5f 70 61 70 65 72 25 3d | . graph|_paper%=|
|00003020| 34 32 0d 11 94 07 c9 20 | 31 0d 11 9e 0c 63 6c 65 |42..... |1....cle|
|00003030| 61 72 25 3d b9 0d 11 a8 | 31 61 78 65 73 5f 63 6f |ar%=....|1axes_co|
|00003040| 6c 25 3d a4 69 6e 70 75 | 74 5f 6e 75 6d 62 65 72 |l%=.inpu|t_number|
|00003050| 28 6f 70 74 24 28 31 29 | 2c 30 2c 48 25 2d 6f 70 |(opt$(1)|,0,H%-op|
|00003060| 74 25 28 31 29 29 0d 11 | b2 36 e7 20 ac 28 a4 63 |t%(1))..|.6. .(.c|
|00003070| 68 65 63 6b 5f 63 6f 6c | 6f 75 72 5f 72 61 6e 67 |heck_col|our_rang|
|00003080| 65 28 61 78 65 73 5f 63 | 6f 6c 25 29 29 20 8c 20 |e(axes_c|ol%)) . |
|00003090| 61 78 65 73 5f 63 6f 6c | 25 3d 36 33 0d 11 bc 07 |axes_col|%=63....|
|000030a0| c9 20 32 0d 11 c6 34 70 | 6c 6f 74 5f 63 6f 6c 6f |. 2...4p|lot_colo|
|000030b0| 75 72 25 3d a4 69 6e 70 | 75 74 5f 6e 75 6d 62 65 |ur%=.inp|ut_numbe|
|000030c0| 72 28 6f 70 74 24 28 32 | 29 2c 30 2c 48 25 2d 6f |r(opt$(2|),0,H%-o|
|000030d0| 70 74 25 28 32 29 29 0d | 11 d0 3b e7 20 ac 28 a4 |pt%(2)).|..;. .(.|
|000030e0| 63 68 65 63 6b 5f 63 6f | 6c 6f 75 72 5f 72 61 6e |check_co|lour_ran|
|000030f0| 67 65 28 70 6c 6f 74 5f | 63 6f 6c 6f 75 72 25 29 |ge(plot_|colour%)|
|00003100| 29 20 8c 20 70 6c 6f 74 | 5f 63 6f 6c 6f 75 72 25 |) . plot|_colour%|
|00003110| 3d 32 0d 11 da 07 c9 20 | 33 0d 11 e4 32 68 69 67 |=2..... |3...2hig|
|00003120| 68 6c 69 67 68 74 25 3d | a4 69 6e 70 75 74 5f 6e |hlight%=|.input_n|
|00003130| 75 6d 62 65 72 28 6f 70 | 74 24 28 33 29 2c 30 2c |umber(op|t$(3),0,|
|00003140| 48 25 2d 6f 70 74 25 28 | 33 29 29 0d 11 ee 38 e7 |H%-opt%(|3))...8.|
|00003150| 20 ac 28 a4 63 68 65 63 | 6b 5f 63 6f 6c 6f 75 72 | .(.chec|k_colour|
|00003160| 5f 72 61 6e 67 65 28 68 | 69 67 68 6c 69 67 68 74 |_range(h|ighlight|
|00003170| 25 29 29 20 8c 20 68 69 | 67 68 6c 69 67 68 74 25 |%)) . hi|ghlight%|
|00003180| 3d 33 32 0d 11 f8 07 c9 | 20 34 0d 12 02 13 67 72 |=32.....| 4....gr|
|00003190| 61 70 68 5f 70 61 70 65 | 72 25 3d 34 32 0d 12 0c |aph_pape|r%=42...|
|000031a0| 10 61 78 65 73 5f 63 6f | 6c 25 3d 36 33 0d 12 16 |.axes_co|l%=63...|
|000031b0| 12 70 6c 6f 74 5f 63 6f | 6c 6f 75 72 25 3d 32 0d |.plot_co|lour%=2.|
|000031c0| 12 20 11 68 69 67 68 6c | 69 67 68 74 25 3d 33 32 |. .highl|ight%=32|
|000031d0| 0d 12 2a 0e c9 20 35 3a | 65 6e 64 25 3d b9 0d 12 |..*.. 5:|end%=...|
|000031e0| 34 05 cb 0d 12 3e 09 ef | 34 2c 32 36 0d 12 48 1d |4....>..|4,26..H.|
|000031f0| f2 77 69 6e 64 6f 77 5f | 6f 66 66 28 43 6f 6c 6f |.window_|off(Colo|
|00003200| 75 72 73 25 28 29 2c 30 | 29 0d 12 52 09 fd 65 6e |urs%(),0|)..R..en|
|00003210| 64 25 0d 12 5c 21 e7 20 | 63 6c 65 61 72 25 20 8c |d%..\!. |clear% .|
|00003220| 20 f2 43 6c 65 61 72 20 | 8b 20 61 64 6a 75 73 74 | .Clear |. adjust|
|00003230| 25 3d b9 0d 12 66 05 e1 | 0d 12 70 07 dc 20 35 0d |%=...f..|..p.. 5.|
|00003240| 12 7a 51 dc 22 50 61 70 | 65 72 3a 22 2c 30 2c 22 |.zQ."Pap|er:",0,"|
|00003250| 67 72 61 70 68 5f 70 61 | 70 65 72 25 22 2c 22 41 |graph_pa|per%","A|
|00003260| 78 65 73 3a 22 2c 33 35 | 2c 22 61 78 65 73 5f 63 |xes:",35|,"axes_c|
|00003270| 6f 6c 25 22 2c 22 50 6f | 69 6e 74 73 3a 22 2c 37 |ol%","Po|ints:",7|
|00003280| 30 2c 22 70 6c 6f 74 5f | 63 6f 6c 6f 75 72 25 22 |0,"plot_|colour%"|
|00003290| 0d 12 84 5a dc 22 48 69 | 67 68 6c 69 67 68 74 3a |...Z."Hi|ghlight:|
|000032a0| 22 2c 31 30 38 2c 22 68 | 69 67 68 6c 69 67 68 74 |",108,"h|ighlight|
|000032b0| 25 22 2c 22 44 65 66 61 | 75 6c 74 20 63 6f 6c 6f |%","Defa|ult colo|
|000032c0| 75 72 73 22 2c 31 34 35 | 2c 22 22 2c 22 46 69 6e |urs",145|,"","Fin|
|000032d0| 69 73 68 65 64 20 77 69 | 74 68 20 63 68 61 6e 67 |ished wi|th chang|
|000032e0| 65 73 22 2c 31 39 35 2c | 22 22 0d 12 8e 05 3a 0d |es",195,|""....:.|
|000032f0| 12 98 1d dd 20 a4 63 68 | 65 63 6b 5f 63 6f 6c 6f |.... .ch|eck_colo|
|00003300| 75 72 5f 72 61 6e 67 65 | 28 63 25 29 0d 12 a2 1d |ur_range|(c%)....|
|00003310| e7 20 63 25 3c 3d 30 20 | 84 20 63 25 3e 36 33 20 |. c%<=0 |. c%>63 |
|00003320| 8c 20 3d a3 20 8b 20 3d | b9 0d 12 ac 05 3a 0d 12 |. =. . =|.....:..|
|00003330| b6 0c dd 20 f2 43 6c 65 | 61 72 0d 12 c0 0e f2 70 |... .Cle|ar.....p|
|00003340| 6c 6f 74 5f 61 78 65 73 | 0d 12 ca 0d 61 64 6a 75 |lot_axes|....adju|
|00003350| 73 74 25 3d b9 0d 12 d4 | 05 e1 0d 12 de 05 3a 0d |st%=....|......:.|
|00003360| 12 e8 10 dd 20 f2 4e 65 | 77 5f 47 72 61 70 68 0d |.... .Ne|w_Graph.|
|00003370| 12 f2 19 ea 20 4f 25 2c | 4f 70 74 25 2c 57 25 2c |.... O%,|Opt%,W%,|
|00003380| 48 25 2c 71 75 69 74 25 | 0d 12 fc 2c f2 77 69 6e |H%,quit%|...,.win|
|00003390| 64 6f 77 5f 6f 6e 28 4e | 65 77 5f 47 72 61 70 68 |dow_on(N|ew_Graph|
|000033a0| 25 28 29 2c 77 69 6e 64 | 6f 77 5f 63 6f 6c 25 2c |%(),wind|ow_col%,|
|000033b0| b9 2c 30 29 0d 13 06 0b | 71 75 69 74 25 3d a3 0d |.,0)....|quit%=..|
|000033c0| 13 10 05 f5 0d 13 1a 0a | f7 20 8d 64 66 54 0d 13 |........|. .dfT..|
|000033d0| 24 0a f3 20 4f 70 74 25 | 0d 13 2e 08 4f 25 3d 30 |$.. Opt%|....O%=0|
|000033e0| 0d 13 38 05 f5 0d 13 42 | 1c f3 20 6f 70 74 24 28 |..8....B|.. opt$(|
|000033f0| 4f 25 29 2c 6f 70 74 25 | 28 4f 25 29 2c 76 61 6c |O%),opt%|(O%),val|
|00003400| 24 0d 13 4c 10 e7 20 76 | 61 6c 24 3c 3e 22 22 20 |$..L.. v|al$<>"" |
|00003410| 8c 0d 13 56 0f e7 20 a0 | 28 76 61 6c 24 29 20 8c |...V.. .|(val$) .|
|00003420| 0d 13 60 1a 6f 70 74 24 | 28 4f 25 29 3d 6f 70 74 |..`.opt$|(O%)=opt|
|00003430| 24 28 4f 25 29 2b 22 4f | 6e 22 0d 13 6a 05 cc 0d |$(O%)+"O|n"..j...|
|00003440| 13 74 1b 6f 70 74 24 28 | 4f 25 29 3d 6f 70 74 24 |.t.opt$(|O%)=opt$|
|00003450| 28 4f 25 29 2b 22 4f 66 | 66 22 0d 13 7e 05 cd 0d |(O%)+"Of|f"..~...|
|00003460| 13 88 05 cd 0d 13 92 09 | 4f 25 2b 3d 31 0d 13 9c |........|O%+=1...|
|00003470| 0c fd 4f 25 3e 4f 70 74 | 25 0d 13 a6 2c 57 25 3d |..O%>Opt|%...,W%=|
|00003480| 4e 65 77 5f 47 72 61 70 | 68 25 28 32 29 2d 4e 65 |New_Grap|h%(2)-Ne|
|00003490| 77 5f 47 72 61 70 68 25 | 28 30 29 2d 28 32 2a 65 |w_Graph%|(0)-(2*e|
|000034a0| 64 67 65 25 29 0d 13 b0 | 2c 48 25 3d 4e 65 77 5f |dge%)...|,H%=New_|
|000034b0| 47 72 61 70 68 25 28 33 | 29 2d 4e 65 77 5f 47 72 |Graph%(3|)-New_Gr|
|000034c0| 61 70 68 25 28 31 29 2d | 28 32 2a 65 64 67 65 25 |aph%(1)-|(2*edge%|
|000034d0| 29 0d 13 ba 17 ef 35 2c | 32 33 2c 31 37 2c 37 2c |).....5,|23,17,7,|
|000034e0| 36 2c 38 3b 38 3b 30 7c | 0d 13 c4 1d e6 30 2c 31 |6,8;8;0||.....0,1|
|000034f0| 32 38 2b 77 69 6e 64 6f | 77 5f 63 6f 6c 25 20 c8 |28+windo|w_col% .|
|00003500| 9c 20 31 32 38 0d 13 ce | 05 da 0d 13 d8 17 e6 30 |. 128...|.......0|
|00003510| 2c 77 69 6e 64 6f 77 5f | 74 65 78 74 5f 63 6f 6c |,window_|text_col|
|00003520| 25 0d 13 e2 08 4f 25 3d | 30 0d 13 ec 05 f5 0d 13 |%....O%=|0.......|
|00003530| f6 13 ec 20 30 2c 48 25 | 2d 6f 70 74 25 28 4f 25 |... 0,H%|-opt%(O%|
|00003540| 29 0d 14 00 0d f1 6f 70 | 74 24 28 4f 25 29 0d 14 |).....op|t$(O%)..|
|00003550| 0a 09 4f 25 2b 3d 31 0d | 14 14 0c fd 4f 25 3e 4f |..O%+=1.|....O%>O|
|00003560| 70 74 25 0d 14 1e 05 f5 | 0d 14 28 29 4f 25 3d a4 |pt%.....|..()O%=.|
|00003570| 77 68 69 63 68 5f 6f 70 | 74 69 6f 6e 28 48 25 2d |which_op|tion(H%-|
|00003580| a4 6f 70 74 69 6f 6e 5f | 70 6f 73 69 74 69 6f 6e |.option_|position|
|00003590| 29 0d 14 32 15 fd 4f 25 | 3e 3d 30 20 80 20 4f 25 |)..2..O%|>=0 . O%|
|000035a0| 3c 3d 4f 70 74 25 0d 14 | 3c 0b c8 8e 20 4f 25 20 |<=Opt%..|<... O% |
|000035b0| ca 0d 14 46 2b c9 20 30 | 3a 63 61 72 74 65 73 69 |...F+. 0|:cartesi|
|000035c0| 61 6e 25 3d b9 3a 70 61 | 72 61 6d 65 74 72 69 63 |an%=.:pa|rametric|
|000035d0| 25 3d a3 3a 70 6f 6c 61 | 72 25 3d a3 0d 14 50 2b |%=.:pola|r%=...P+|
|000035e0| c9 20 31 3a 70 61 72 61 | 6d 65 74 72 69 63 25 3d |. 1:para|metric%=|
|000035f0| b9 3a 63 61 72 74 65 73 | 69 61 6e 25 3d a3 3a 70 |.:cartes|ian%=.:p|
|00003600| 6f 6c 61 72 25 3d a3 0d | 14 5a 2b c9 20 32 3a 70 |olar%=..|.Z+. 2:p|
|00003610| 6f 6c 61 72 25 3d b9 3a | 63 61 72 74 65 73 69 61 |olar%=.:|cartesia|
|00003620| 6e 25 3d a3 3a 70 61 72 | 61 6d 65 74 72 69 63 25 |n%=.:par|ametric%|
|00003630| 3d a3 0d 14 64 1d c9 20 | 33 3a 72 61 64 69 61 6e |=...d.. |3:radian|
|00003640| 73 25 3d b9 3a 64 65 67 | 72 65 65 73 25 3d a3 0d |s%=.:deg|rees%=..|
|00003650| 14 6e 1d c9 20 34 3a 72 | 61 64 69 61 6e 73 25 3d |.n.. 4:r|adians%=|
|00003660| a3 3a 64 65 67 72 65 65 | 73 25 3d b9 0d 14 78 07 |.:degree|s%=...x.|
|00003670| c9 20 35 0d 14 82 11 f2 | 6e 65 77 5f 66 75 6e 63 |. 5.....|new_func|
|00003680| 74 69 6f 6e 0d 14 8c 0b | 71 75 69 74 25 3d b9 0d |tion....|quit%=..|
|00003690| 14 96 07 c9 20 36 0d 14 | a0 0b 71 75 69 74 25 3d |.... 6..|..quit%=|
|000036a0| b9 0d 14 aa 05 cb 0d 14 | b4 0a fd 71 75 69 74 25 |........|...quit%|
|000036b0| 0d 14 be 09 ef 34 2c 32 | 36 0d 14 c8 1f f2 77 69 |.....4,2|6.....wi|
|000036c0| 6e 64 6f 77 5f 6f 66 66 | 28 4e 65 77 5f 47 72 61 |ndow_off|(New_Gra|
|000036d0| 70 68 25 28 29 2c 30 29 | 0d 14 d2 0d 61 64 6a 75 |ph%(),0)|....adju|
|000036e0| 73 74 25 3d b9 0d 14 dc | 05 e1 0d 14 e6 06 dc 36 |st%=....|.......6|
|000036f0| 0d 14 f0 3f dc 22 43 61 | 72 74 65 73 69 61 6e 3a |...?."Ca|rtesian:|
|00003700| 22 2c 30 2c 22 63 61 72 | 74 65 73 69 61 6e 25 22 |",0,"car|tesian%"|
|00003710| 2c 22 50 61 72 61 6d 65 | 74 72 69 63 3a 22 2c 33 |,"Parame|tric:",3|
|00003720| 36 2c 22 70 61 72 61 6d | 65 74 72 69 63 25 22 0d |6,"param|etric%".|
|00003730| 14 fa 33 dc 22 50 6f 6c | 61 72 3a 22 2c 37 32 2c |..3."Pol|ar:",72,|
|00003740| 22 70 6f 6c 61 72 25 22 | 2c 22 72 61 64 69 61 6e |"polar%"|,"radian|
|00003750| 73 3a 22 2c 31 30 38 2c | 22 72 61 64 69 61 6e 73 |s:",108,|"radians|
|00003760| 25 22 0d 15 04 37 dc 22 | 64 65 67 72 65 65 73 3a |%"...7."|degrees:|
|00003770| 22 2c 31 34 34 2c 22 64 | 65 67 72 65 65 73 25 22 |",144,"d|egrees%"|
|00003780| 2c 22 4e 65 77 20 66 75 | 6e 63 74 69 6f 6e 28 73 |,"New fu|nction(s|
|00003790| 29 22 2c 31 38 30 2c 22 | 22 0d 15 0e 1e dc 22 46 |)",180,"|"....."F|
|000037a0| 69 6e 69 73 68 65 64 20 | 63 68 61 6e 67 65 73 22 |inished |changes"|
|000037b0| 2c 32 31 36 2c 22 22 0d | 15 18 05 3a 0d 15 22 0e |,216,"".|...:..".|
|000037c0| dd 20 f2 52 65 73 63 61 | 6c 65 0d 15 2c 25 ea 20 |. .Resca|le..,%. |
|000037d0| 4f 25 2c 4f 70 74 25 2c | 76 61 6c 24 2c 57 25 2c |O%,Opt%,|val$,W%,|
|000037e0| 48 25 2c 65 6e 64 25 2c | 63 68 61 6e 67 65 25 0d |H%,end%,|change%.|
|000037f0| 15 36 0d 63 68 61 6e 67 | 65 25 3d a3 0d 15 40 0a |.6.chang|e%=...@.|
|00003800| 65 6e 64 25 3d a3 0d 15 | 4a 05 f5 0d 15 54 0a f7 |end%=...|J....T..|
|00003810| 20 8d 44 6a 58 0d 15 5e | 08 4f 25 3d 30 0d 15 68 | .DjX..^|.O%=0..h|
|00003820| 0a f3 20 4f 70 74 25 0d | 15 72 05 f5 0d 15 7c 1c |.. Opt%.|.r....|.|
|00003830| f3 20 6f 70 74 24 28 4f | 25 29 2c 6f 70 74 25 28 |. opt$(O|%),opt%(|
|00003840| 4f 25 29 2c 76 61 6c 24 | 0d 15 86 20 6f 70 74 24 |O%),val$|... opt$|
|00003850| 28 4f 25 29 3d 6f 70 74 | 24 28 4f 25 29 2b c3 28 |(O%)=opt|$(O%)+.(|
|00003860| a0 28 76 61 6c 24 29 29 | 0d 15 90 09 4f 25 2b 3d |.(val$))|....O%+=|
|00003870| 31 0d 15 9a 0e fd 4f 25 | 3e 4f 70 74 25 2d 31 0d |1.....O%|>Opt%-1.|
|00003880| 15 a4 17 f3 20 6f 70 74 | 24 28 4f 25 29 2c 6f 70 |.... opt|$(O%),op|
|00003890| 74 25 28 4f 25 29 0d 15 | ae 28 57 25 3d 52 65 73 |t%(O%)..|.(W%=Res|
|000038a0| 63 61 6c 65 25 28 32 29 | 2d 52 65 73 63 61 6c 65 |cale%(2)|-Rescale|
|000038b0| 25 28 30 29 2d 28 32 2a | 65 64 67 65 25 29 0d 15 |%(0)-(2*|edge%)..|
|000038c0| b8 28 48 25 3d 52 65 73 | 63 61 6c 65 25 28 33 29 |.(H%=Res|cale%(3)|
|000038d0| 2d 52 65 73 63 61 6c 65 | 25 28 31 29 2d 28 32 2a |-Rescale|%(1)-(2*|
|000038e0| 65 64 67 65 25 29 0d 15 | c2 2a f2 77 69 6e 64 6f |edge%)..|.*.windo|
|000038f0| 77 5f 6f 6e 28 52 65 73 | 63 61 6c 65 25 28 29 2c |w_on(Res|cale%(),|
|00003900| 77 69 6e 64 6f 77 5f 63 | 6f 6c 25 2c b9 2c 30 29 |window_c|ol%,.,0)|
|00003910| 0d 15 cc 17 ef 35 2c 32 | 33 2c 31 37 2c 37 2c 36 |.....5,2|3,17,7,6|
|00003920| 2c 38 3b 38 3b 30 7c 0d | 15 d6 12 e7 20 63 61 72 |,8;8;0|.|.... car|
|00003930| 74 65 73 69 61 6e 25 20 | 8c 0d 15 e0 17 e6 30 2c |tesian% |......0,|
|00003940| 77 69 6e 64 6f 77 5f 74 | 65 78 74 5f 63 6f 6c 25 |window_t|ext_col%|
|00003950| 0d 15 ea 05 cc 0d 15 f4 | 19 e6 30 2c 77 69 6e 64 |........|..0,wind|
|00003960| 6f 77 5f 63 6f 6c 25 20 | c8 9c 20 31 39 32 0d 15 |ow_col% |.. 192..|
|00003970| fe 05 cd 0d 16 08 08 4f | 25 3d 30 0d 16 12 05 f5 |.......O|%=0.....|
|00003980| 0d 16 1c 13 ec 20 30 2c | 48 25 2d 6f 70 74 25 28 |..... 0,|H%-opt%(|
|00003990| 4f 25 29 0d 16 26 0d f1 | 6f 70 74 24 28 4f 25 29 |O%)..&..|opt$(O%)|
|000039a0| 0d 16 30 09 4f 25 2b 3d | 31 0d 16 3a 09 fd 4f 25 |..0.O%+=|1..:..O%|
|000039b0| 3e 35 0d 16 44 13 e7 20 | 70 61 72 61 6d 65 74 72 |>5..D.. |parametr|
|000039c0| 69 63 25 20 8c 0d 16 4e | 17 e6 30 2c 77 69 6e 64 |ic% ...N|..0,wind|
|000039d0| 6f 77 5f 74 65 78 74 5f | 63 6f 6c 25 0d 16 58 05 |ow_text_|col%..X.|
|000039e0| cc 0d 16 62 19 e6 30 2c | 77 69 6e 64 6f 77 5f 63 |...b..0,|window_c|
|000039f0| 6f 6c 25 20 c8 9c 20 31 | 39 32 0d 16 6c 05 cd 0d |ol% .. 1|92..l...|
|00003a00| 16 76 05 f5 0d 16 80 13 | ec 20 30 2c 48 25 2d 6f |.v......|. 0,H%-o|
|00003a10| 70 74 25 28 4f 25 29 0d | 16 8a 0d f1 6f 70 74 24 |pt%(O%).|....opt$|
|00003a20| 28 4f 25 29 0d 16 94 09 | 4f 25 2b 3d 31 0d 16 9e |(O%)....|O%+=1...|
|00003a30| 09 fd 4f 25 3e 37 0d 16 | a8 0e e7 20 70 6f 6c 61 |..O%>7..|... pola|
|00003a40| 72 25 20 8c 0d 16 b2 17 | e6 30 2c 77 69 6e 64 6f |r% .....|.0,windo|
|00003a50| 77 5f 74 65 78 74 5f 63 | 6f 6c 25 0d 16 bc 05 cc |w_text_c|ol%.....|
|00003a60| 0d 16 c6 19 e6 30 2c 77 | 69 6e 64 6f 77 5f 63 6f |.....0,w|indow_co|
|00003a70| 6c 25 20 c8 9c 20 31 39 | 32 0d 16 d0 05 cd 0d 16 |l% .. 19|2.......|
|00003a80| da 05 f5 0d 16 e4 13 ec | 20 30 2c 48 25 2d 6f 70 |........| 0,H%-op|
|00003a90| 74 25 28 4f 25 29 0d 16 | ee 0d f1 6f 70 74 24 28 |t%(O%)..|...opt$(|
|00003aa0| 4f 25 29 0d 16 f8 09 4f | 25 2b 3d 31 0d 17 02 0e |O%)....O|%+=1....|
|00003ab0| fd 4f 25 3e 4f 70 74 25 | 2d 31 0d 17 0c 17 e6 30 |.O%>Opt%|-1.....0|
|00003ac0| 2c 77 69 6e 64 6f 77 5f | 74 65 78 74 5f 63 6f 6c |,window_|text_col|
|00003ad0| 25 0d 17 16 13 ec 20 30 | 2c 48 25 2d 6f 70 74 25 |%..... 0|,H%-opt%|
|00003ae0| 28 4f 25 29 0d 17 20 0d | f1 6f 70 74 24 28 4f 25 |(O%).. .|.opt$(O%|
|00003af0| 29 0d 17 2a 05 87 0d 17 | 34 05 f5 0d 17 3e 29 4f |)..*....|4....>)O|
|00003b00| 25 3d a4 77 68 69 63 68 | 5f 6f 70 74 69 6f 6e 28 |%=.which|_option(|
|00003b10| 48 25 2d a4 6f 70 74 69 | 6f 6e 5f 70 6f 73 69 74 |H%-.opti|on_posit|
|00003b20| 69 6f 6e 29 0d 17 48 15 | fd 4f 25 3e 3d 30 20 80 |ion)..H.|.O%>=0 .|
|00003b30| 20 4f 25 3c 3d 4f 70 74 | 25 0d 17 52 1d e6 30 2c | O%<=Opt|%..R..0,|
|00003b40| 31 32 38 2b 77 69 6e 64 | 6f 77 5f 63 6f 6c 25 20 |128+wind|ow_col% |
|00003b50| c8 9c 20 31 32 38 0d 17 | 5c 0f e7 20 4f 25 3c 4f |.. 128..|\.. O%<O|
|00003b60| 70 74 25 20 8c 0d 17 66 | 0d 63 68 61 6e 67 65 25 |pt% ...f|.change%|
|00003b70| 3d b9 0d 17 70 0b c8 8e | 20 4f 25 20 ca 0d 17 7a |=...p...| O% ...z|
|00003b80| 31 c9 20 30 3a 78 5f 6d | 69 6e 3d a4 69 6e 70 75 |1. 0:x_m|in=.inpu|
|00003b90| 74 5f 6e 75 6d 62 65 72 | 28 6f 70 74 24 28 30 29 |t_number|(opt$(0)|
|00003ba0| 2c 30 2c 48 25 2d 6f 70 | 74 25 28 30 29 29 0d 17 |,0,H%-op|t%(0))..|
|00003bb0| 84 31 c9 20 31 3a 78 5f | 6d 61 78 3d a4 69 6e 70 |.1. 1:x_|max=.inp|
|00003bc0| 75 74 5f 6e 75 6d 62 65 | 72 28 6f 70 74 24 28 31 |ut_numbe|r(opt$(1|
|00003bd0| 29 2c 30 2c 48 25 2d 6f | 70 74 25 28 31 29 29 0d |),0,H%-o|pt%(1)).|
|00003be0| 17 8e 4c c9 20 32 3a 78 | 5f 74 69 63 6b 73 3d a4 |..L. 2:x|_ticks=.|
|00003bf0| 69 6e 70 75 74 5f 6e 75 | 6d 62 65 72 28 6f 70 74 |input_nu|mber(opt|
|00003c00| 24 28 32 29 2c 30 2c 48 | 25 2d 6f 70 74 25 28 32 |$(2),0,H|%-opt%(2|
|00003c10| 29 29 3a e7 20 78 5f 74 | 69 63 6b 73 3c 3d 30 20 |)):. x_t|icks<=0 |
|00003c20| 8c 20 78 5f 74 69 63 6b | 73 3d 31 0d 17 98 31 c9 |. x_tick|s=1...1.|
|00003c30| 20 33 3a 79 5f 6d 69 6e | 3d a4 69 6e 70 75 74 5f | 3:y_min|=.input_|
|00003c40| 6e 75 6d 62 65 72 28 6f | 70 74 24 28 33 29 2c 30 |number(o|pt$(3),0|
|00003c50| 2c 48 25 2d 6f 70 74 25 | 28 33 29 29 0d 17 a2 31 |,H%-opt%|(3))...1|
|00003c60| c9 20 34 3a 79 5f 6d 61 | 78 3d a4 69 6e 70 75 74 |. 4:y_ma|x=.input|
|00003c70| 5f 6e 75 6d 62 65 72 28 | 6f 70 74 24 28 34 29 2c |_number(|opt$(4),|
|00003c80| 30 2c 48 25 2d 6f 70 74 | 25 28 34 29 29 0d 17 ac |0,H%-opt|%(4))...|
|00003c90| 4c c9 20 35 3a 79 5f 74 | 69 63 6b 73 3d a4 69 6e |L. 5:y_t|icks=.in|
|00003ca0| 70 75 74 5f 6e 75 6d 62 | 65 72 28 6f 70 74 24 28 |put_numb|er(opt$(|
|00003cb0| 35 29 2c 30 2c 48 25 2d | 6f 70 74 25 28 35 29 29 |5),0,H%-|opt%(5))|
|00003cc0| 3a e7 20 79 5f 74 69 63 | 6b 73 3c 3d 30 20 8c 20 |:. y_tic|ks<=0 . |
|00003cd0| 79 5f 74 69 63 6b 73 3d | 31 0d 17 b6 31 c9 20 36 |y_ticks=|1...1. 6|
|00003ce0| 3a 74 5f 6d 69 6e 3d a4 | 69 6e 70 75 74 5f 6e 75 |:t_min=.|input_nu|
|00003cf0| 6d 62 65 72 28 6f 70 74 | 24 28 36 29 2c 30 2c 48 |mber(opt|$(6),0,H|
|00003d00| 25 2d 6f 70 74 25 28 36 | 29 29 0d 17 c0 31 c9 20 |%-opt%(6|))...1. |
|00003d10| 37 3a 74 5f 6d 61 78 3d | a4 69 6e 70 75 74 5f 6e |7:t_max=|.input_n|
|00003d20| 75 6d 62 65 72 28 6f 70 | 74 24 28 37 29 2c 30 2c |umber(op|t$(7),0,|
|00003d30| 48 25 2d 6f 70 74 25 28 | 37 29 29 0d 17 ca 35 c9 |H%-opt%(|7))...5.|
|00003d40| 20 38 3a 74 68 65 74 61 | 5f 6d 69 6e 3d a4 69 6e | 8:theta|_min=.in|
|00003d50| 70 75 74 5f 6e 75 6d 62 | 65 72 28 6f 70 74 24 28 |put_numb|er(opt$(|
|00003d60| 38 29 2c 30 2c 48 25 2d | 6f 70 74 25 28 38 29 29 |8),0,H%-|opt%(8))|
|00003d70| 0d 17 d4 35 c9 20 39 3a | 74 68 65 74 61 5f 6d 61 |...5. 9:|theta_ma|
|00003d80| 78 3d a4 69 6e 70 75 74 | 5f 6e 75 6d 62 65 72 28 |x=.input|_number(|
|00003d90| 6f 70 74 24 28 39 29 2c | 30 2c 48 25 2d 6f 70 74 |opt$(9),|0,H%-opt|
|00003da0| 25 28 39 29 29 0d 17 de | 05 cb 0d 17 e8 05 cc 0d |%(9))...|........|
|00003db0| 17 f2 0a 65 6e 64 25 3d | b9 0d 17 fc 05 cd 0d 18 |...end%=|........|
|00003dc0| 06 27 e7 20 78 5f 6d 69 | 6e 3e 3d 78 5f 6d 61 78 |.'. x_mi|n>=x_max|
|00003dd0| 20 8c 20 78 5f 6d 69 6e | 3d 2d 31 30 3a 78 5f 6d | . x_min|=-10:x_m|
|00003de0| 61 78 3d 31 30 0d 18 10 | 27 e7 20 79 5f 6d 69 6e |ax=10...|'. y_min|
|00003df0| 3e 3d 79 5f 6d 61 78 20 | 8c 20 79 5f 6d 69 6e 3d |>=y_max |. y_min=|
|00003e00| 2d 31 30 3a 79 5f 6d 61 | 78 3d 31 30 0d 18 1a 27 |-10:y_ma|x=10...'|
|00003e10| e7 20 74 5f 6d 69 6e 3e | 3d 74 5f 6d 61 78 20 8c |. t_min>|=t_max .|
|00003e20| 20 74 5f 6d 69 6e 3d 2d | 31 30 3a 74 5f 6d 61 78 | t_min=-|10:t_max|
|00003e30| 3d 31 30 0d 18 24 37 e7 | 20 74 68 65 74 61 5f 6d |=10..$7.| theta_m|
|00003e40| 69 6e 3e 3d 74 68 65 74 | 61 5f 6d 61 78 20 8c 20 |in>=thet|a_max . |
|00003e50| 74 68 65 74 61 5f 6d 69 | 6e 3d 2d 31 30 3a 74 68 |theta_mi|n=-10:th|
|00003e60| 65 74 61 5f 6d 61 78 3d | 31 30 0d 18 2e 09 ef 34 |eta_max=|10.....4|
|00003e70| 2c 32 36 0d 18 38 1d f2 | 77 69 6e 64 6f 77 5f 6f |,26..8..|window_o|
|00003e80| 66 66 28 52 65 73 63 61 | 6c 65 25 28 29 2c 30 29 |ff(Resca|le%(),0)|
|00003e90| 0d 18 42 09 fd 65 6e 64 | 25 0d 18 4c 0d 61 64 6a |..B..end|%..L.adj|
|00003ea0| 75 73 74 25 3d b9 0d 18 | 56 1a e7 20 63 68 61 6e |ust%=...|V.. chan|
|00003eb0| 67 65 25 20 8c 20 f2 70 | 6c 6f 74 5f 61 78 65 73 |ge% . .p|lot_axes|
|00003ec0| 0d 18 60 05 e1 0d 18 6a | 08 dc 20 31 30 0d 18 74 |..`....j|.. 10..t|
|00003ed0| 85 dc 20 22 78 20 6d 69 | 6e 3a 22 2c 30 2c 22 78 |.. "x mi|n:",0,"x|
|00003ee0| 5f 6d 69 6e 22 2c 22 78 | 20 6d 61 78 3a 22 2c 33 |_min","x| max:",3|
|00003ef0| 35 2c 22 78 5f 6d 61 78 | 22 2c 22 78 20 73 74 65 |5,"x_max|","x ste|
|00003f00| 70 3a 22 2c 37 30 2c 22 | 78 5f 74 69 63 6b 73 22 |p:",70,"|x_ticks"|
|00003f10| 2c 22 79 20 6d 69 6e 3a | 22 2c 31 30 35 2c 22 79 |,"y min:|",105,"y|
|00003f20| 5f 6d 69 6e 22 2c 22 79 | 20 6d 61 78 3a 22 2c 31 |_min","y| max:",1|
|00003f30| 34 30 2c 22 79 5f 6d 61 | 78 22 2c 22 79 20 73 74 |40,"y_ma|x","y st|
|00003f40| 65 70 3a 22 2c 31 37 35 | 2c 22 79 5f 74 69 63 6b |ep:",175|,"y_tick|
|00003f50| 73 22 0d 18 7e 2f dc 20 | 22 74 20 6d 69 6e 3a 22 |s"..~/. |"t min:"|
|00003f60| 2c 32 32 35 2c 22 74 5f | 6d 69 6e 22 2c 22 74 20 |,225,"t_|min","t |
|00003f70| 6d 61 78 3a 22 2c 32 36 | 30 2c 22 74 5f 6d 61 78 |max:",26|0,"t_max|
|00003f80| 22 0d 18 88 3f dc 20 22 | 74 68 65 74 61 20 6d 69 |"...?. "|theta mi|
|00003f90| 6e 3a 22 2c 33 31 30 2c | 22 74 68 65 74 61 5f 6d |n:",310,|"theta_m|
|00003fa0| 69 6e 22 2c 22 74 68 65 | 74 61 20 6d 61 78 3a 22 |in","the|ta max:"|
|00003fb0| 2c 33 34 35 2c 22 74 68 | 65 74 61 5f 6d 61 78 22 |,345,"th|eta_max"|
|00003fc0| 0d 18 92 20 dc 22 46 69 | 6e 69 73 68 65 64 20 77 |... ."Fi|nished w|
|00003fd0| 69 74 68 20 63 68 61 6e | 67 65 73 22 2c 33 38 30 |ith chan|ges",380|
|00003fe0| 0d 18 9c 05 3a 0d 18 a6 | 09 dd 20 f2 47 6f 0d 18 |....:...|.. .Go..|
|00003ff0| b0 11 ea 20 71 75 69 74 | 25 2c 70 6c 6f 74 25 0d |... quit|%,plot%.|
|00004000| 18 ba 25 f2 77 69 6e 64 | 6f 77 5f 6f 6e 28 47 6f |..%.wind|ow_on(Go|
|00004010| 25 28 29 2c 77 69 6e 64 | 6f 77 5f 63 6f 6c 25 2c |%(),wind|ow_col%,|
|00004020| b9 2c 30 29 0d 18 c4 05 | f5 0d 18 ce 0a f7 20 8d |.,0)....|...... .|
|00004030| 44 72 5a 0d 18 d8 0a f3 | 20 4f 70 74 25 0d 18 e2 |DrZ.....| Opt%...|
|00004040| 08 4f 25 3d 30 0d 18 ec | 05 f5 0d 18 f6 1c f3 20 |.O%=0...|....... |
|00004050| 6f 70 74 24 28 4f 25 29 | 2c 6f 70 74 25 28 4f 25 |opt$(O%)|,opt%(O%|
|00004060| 29 2c 76 61 6c 24 0d 19 | 00 10 e7 20 76 61 6c 24 |),val$..|... val$|
|00004070| 3c 3e 22 22 20 8c 0d 19 | 0a 0f e7 20 a0 28 76 61 |<>"" ...|... .(va|
|00004080| 6c 24 29 20 8c 0d 19 14 | 1a 6f 70 74 24 28 4f 25 |l$) ....|.opt$(O%|
|00004090| 29 3d 6f 70 74 24 28 4f | 25 29 2b 22 4f 6e 22 0d |)=opt$(O|%)+"On".|
|000040a0| 19 1e 05 cc 0d 19 28 1b | 6f 70 74 24 28 4f 25 29 |......(.|opt$(O%)|
|000040b0| 3d 6f 70 74 24 28 4f 25 | 29 2b 22 4f 66 66 22 0d |=opt$(O%|)+"Off".|
|000040c0| 19 32 05 cd 0d 19 3c 05 | cd 0d 19 46 09 4f 25 2b |.2....<.|...F.O%+|
|000040d0| 3d 31 0d 19 50 0c fd 4f | 25 3e 4f 70 74 25 0d 19 |=1..P..O|%>Opt%..|
|000040e0| 5a 1e 57 25 3d 47 6f 25 | 28 32 29 2d 47 6f 25 28 |Z.W%=Go%|(2)-Go%(|
|000040f0| 30 29 2d 28 32 2a 65 64 | 67 65 25 29 0d 19 64 1e |0)-(2*ed|ge%)..d.|
|00004100| 48 25 3d 47 6f 25 28 33 | 29 2d 47 6f 25 28 31 29 |H%=Go%(3|)-Go%(1)|
|00004110| 2d 28 32 2a 65 64 67 65 | 25 29 0d 19 6e 17 ef 35 |-(2*edge|%)..n..5|
|00004120| 2c 32 33 2c 31 37 2c 37 | 2c 36 2c 38 3b 38 3b 30 |,23,17,7|,6,8;8;0|
|00004130| 7c 0d 19 78 1d e6 30 2c | 31 32 38 2b 77 69 6e 64 ||..x..0,|128+wind|
|00004140| 6f 77 5f 63 6f 6c 25 20 | c8 9c 20 31 32 38 0d 19 |ow_col% |.. 128..|
|00004150| 82 05 da 0d 19 8c 17 e6 | 30 2c 77 69 6e 64 6f 77 |........|0,window|
|00004160| 5f 74 65 78 74 5f 63 6f | 6c 25 0d 19 96 08 4f 25 |_text_co|l%....O%|
|00004170| 3d 30 0d 19 a0 05 f5 0d | 19 aa 13 ec 20 30 2c 48 |=0......|.... 0,H|
|00004180| 25 2d 6f 70 74 25 28 4f | 25 29 0d 19 b4 0d f1 6f |%-opt%(O|%).....o|
|00004190| 70 74 24 28 4f 25 29 0d | 19 be 09 4f 25 2b 3d 31 |pt$(O%).|...O%+=1|
|000041a0| 0d 19 c8 0c fd 4f 25 3e | 4f 70 74 25 0d 19 d2 05 |.....O%>|Opt%....|
|000041b0| f5 0d 19 dc 29 4f 25 3d | a4 77 68 69 63 68 5f 6f |....)O%=|.which_o|
|000041c0| 70 74 69 6f 6e 28 48 25 | 2d a4 6f 70 74 69 6f 6e |ption(H%|-.option|
|000041d0| 5f 70 6f 73 69 74 69 6f | 6e 29 0d 19 e6 15 fd 4f |_positio|n).....O|
|000041e0| 25 3e 3d 30 20 80 20 4f | 25 3c 3d 4f 70 74 25 0d |%>=0 . O|%<=Opt%.|
|000041f0| 19 f0 0b c8 8e 20 4f 25 | 20 ca 0d 19 fa 17 c9 20 |..... O%| ...... |
|00004200| 30 3a 64 69 66 66 65 72 | 65 6e 74 69 61 6c 25 3d |0:differ|ential%=|
|00004210| a3 0d 1a 04 17 c9 20 31 | 3a 64 69 66 66 65 72 65 |...... 1|:differe|
|00004220| 6e 74 69 61 6c 25 3d b9 | 0d 1a 0e 21 c9 20 32 3a |ntial%=.|...!. 2:|
|00004230| f2 63 68 61 6e 67 65 5f | 63 6f 6e 73 74 61 6e 74 |.change_|constant|
|00004240| 73 3a 71 75 69 74 25 3d | b9 0d 1a 18 17 c9 20 33 |s:quit%=|...... 3|
|00004250| 3a 70 6c 6f 74 25 3d b9 | 3a 71 75 69 74 25 3d b9 |:plot%=.|:quit%=.|
|00004260| 0d 1a 22 0f c9 20 34 3a | 71 75 69 74 25 3d b9 0d |..".. 4:|quit%=..|
|00004270| 1a 2c 05 cb 0d 1a 36 0b | fd 20 71 75 69 74 25 0d |.,....6.|. quit%.|
|00004280| 1a 40 0a ef 20 34 2c 32 | 36 0d 1a 4a 18 f2 77 69 |.@.. 4,2|6..J..wi|
|00004290| 6e 64 6f 77 5f 6f 66 66 | 28 47 6f 25 28 29 2c 30 |ndow_off|(Go%(),0|
|000042a0| 29 0d 1a 54 2c e7 20 70 | 6c 6f 74 25 20 8c 20 c8 |)..T,. p|lot% . .|
|000042b0| 97 20 87 3a f2 70 6c 6f | 74 3a 64 69 73 70 6c 61 |. .:.plo|t:displa|
|000042c0| 79 5f 66 75 6e 63 74 69 | 6f 6e 25 3d b9 0d 1a 5e |y_functi|on%=...^|
|000042d0| 0d 61 64 6a 75 73 74 25 | 3d b9 0d 1a 68 05 e1 0d |.adjust%|=...h...|
|000042e0| 1a 72 07 dc 20 34 0d 1a | 7c 46 dc 20 22 43 75 72 |.r.. 4..||F. "Cur|
|000042f0| 76 65 3a 22 2c 30 2c 22 | 4e 4f 54 64 69 66 66 65 |ve:",0,"|NOTdiffe|
|00004300| 72 65 6e 74 69 61 6c 25 | 22 2c 22 44 69 66 66 65 |rential%|","Diffe|
|00004310| 72 65 6e 74 69 61 6c 3a | 22 2c 33 36 2c 22 64 69 |rential:|",36,"di|
|00004320| 66 66 65 72 65 6e 74 69 | 61 6c 25 22 0d 1a 86 4f |fferenti|al%"...O|
|00004330| dc 20 22 43 68 61 6e 67 | 65 20 43 6f 6e 73 74 61 |. "Chang|e Consta|
|00004340| 6e 74 73 22 2c 37 32 2c | 22 22 2c 22 50 6c 6f 74 |nts",72,|"","Plot|
|00004350| 20 46 75 6e 63 74 69 6f | 6e 22 2c 31 30 38 2c 22 | Functio|n",108,"|
|00004360| 22 2c 22 46 69 6e 69 73 | 68 65 64 20 43 68 61 6e |","Finis|hed Chan|
|00004370| 67 65 73 22 2c 31 34 34 | 2c 22 22 0d 1a 90 05 3a |ges",144|,""....:|
|00004380| 0d 1a 9a 0b dd 20 f2 51 | 75 69 74 0d 1a a4 0b 71 |..... .Q|uit....q|
|00004390| 75 69 74 25 3d b9 0d 1a | ae 05 e1 0d 1a b8 05 3a |uit%=...|.......:|
|000043a0| 0d 1a c2 17 dd 20 f2 63 | 68 61 6e 67 65 5f 63 6f |..... .c|hange_co|
|000043b0| 6e 73 74 61 6e 74 73 0d | 1a cc 1a ea 20 78 25 2c |nstants.|.... x%,|
|000043c0| 79 25 2c 73 65 6c 25 2c | 6d 65 6e 25 2c 61 64 6a |y%,sel%,|men%,adj|
|000043d0| 25 0d 1a d6 04 0d 1a e0 | 04 0d 1a ea 08 ef 20 32 |%.......|...... 2|
|000043e0| 36 0d 1a f4 2f f2 77 69 | 6e 64 6f 77 5f 6f 6e 28 |6.../.wi|ndow_on(|
|000043f0| 43 68 61 6e 67 65 5f 63 | 6f 6e 73 74 25 28 29 2c |Change_c|onst%(),|
|00004400| 77 69 6e 64 6f 77 5f 63 | 6f 6c 25 2c b9 2c 31 29 |window_c|ol%,.,1)|
|00004410| 0d 1a fe 1f e6 20 30 2c | 77 69 6e 64 6f 77 5f 74 |..... 0,|window_t|
|00004420| 65 78 74 5f 63 6f 6c 25 | 20 c8 9c 20 31 39 32 0d |ext_col%| .. 192.|
|00004430| 1b 08 13 e3 20 70 72 69 | 6e 74 25 3d 31 20 b8 20 |.... pri|nt%=1 . |
|00004440| 32 36 0d 1b 12 18 ec 20 | 31 36 2c 38 39 34 2d 28 |26..... |16,894-(|
|00004450| 70 72 69 6e 74 25 2a 33 | 32 29 0d 1b 1c 2f f1 20 |print%*3|2).../. |
|00004460| bd 28 70 72 69 6e 74 25 | 2b 39 36 29 3b 22 3a 22 |.(print%|+96);":"|
|00004470| 3b a0 28 bd 28 70 72 69 | 6e 74 25 2b 39 36 29 2b |;.(.(pri|nt%+96)+|
|00004480| 22 5f 63 6f 6e 73 74 22 | 29 0d 1b 26 05 ed 0d 1b |"_const"|)..&....|
|00004490| 30 18 f1 22 20 46 69 6e | 69 73 68 65 64 20 43 68 |0.." Fin|ished Ch|
|000044a0| 61 6e 67 65 73 22 0d 1b | 3a 04 0d 1b 44 05 f5 0d |anges"..|:...D...|
|000044b0| 1b 4e 22 f2 62 75 74 74 | 6f 6e 73 28 78 25 2c 79 |.N".butt|ons(x%,y|
|000044c0| 25 2c 73 65 6c 25 2c 6d | 65 6e 25 2c 61 64 6a 25 |%,sel%,m|en%,adj%|
|000044d0| 29 0d 1b 58 14 e7 20 79 | 25 3e 33 36 20 80 20 73 |)..X.. y|%>36 . s|
|000044e0| 65 6c 25 20 8c 0d 1b 62 | 18 79 25 3d 28 28 79 25 |el% ...b|.y%=((y%|
|000044f0| 2d 34 29 81 33 32 29 2a | 33 32 2b 33 32 0d 1b 6c |-4).32)*|32+32..l|
|00004500| 16 6c 65 74 25 3d 28 38 | 39 34 2d 79 25 29 81 33 |.let%=(8|94-y%).3|
|00004510| 32 2b 31 0d 1b 76 14 63 | 68 61 72 24 3d bd 28 6c |2+1..v.c|har$=.(l|
|00004520| 65 74 25 2b 39 36 29 0d | 1b 80 26 6e 75 6d 3d a4 |et%+96).|..&num=.|
|00004530| 69 6e 70 75 74 5f 6e 75 | 6d 62 65 72 28 63 68 61 |input_nu|mber(cha|
|00004540| 72 24 2b 22 3a 22 2c 31 | 36 2c 79 25 29 0d 1b 8a |r$+":",1|6,y%)...|
|00004550| 0e c8 8e 20 63 68 61 72 | 24 20 ca 0d 1b 94 15 c9 |... char|$ ......|
|00004560| 20 22 61 22 3a 61 5f 63 | 6f 6e 73 74 3d 6e 75 6d | "a":a_c|onst=num|
|00004570| 0d 1b 9e 15 c9 20 22 62 | 22 3a 62 5f 63 6f 6e 73 |..... "b|":b_cons|
|00004580| 74 3d 6e 75 6d 0d 1b a8 | 15 c9 20 22 63 22 3a 63 |t=num...|.. "c":c|
|00004590| 5f 63 6f 6e 73 74 3d 6e | 75 6d 0d 1b b2 15 c9 20 |_const=n|um..... |
|000045a0| 22 64 22 3a 64 5f 63 6f | 6e 73 74 3d 6e 75 6d 0d |"d":d_co|nst=num.|
|000045b0| 1b bc 15 c9 20 22 65 22 | 3a 65 5f 63 6f 6e 73 74 |.... "e"|:e_const|
|000045c0| 3d 6e 75 6d 0d 1b c6 15 | c9 20 22 66 22 3a 66 5f |=num....|. "f":f_|
|000045d0| 63 6f 6e 73 74 3d 6e 75 | 6d 0d 1b d0 15 c9 20 22 |const=nu|m..... "|
|000045e0| 67 22 3a 67 5f 63 6f 6e | 73 74 3d 6e 75 6d 0d 1b |g":g_con|st=num..|
|000045f0| da 15 c9 20 22 68 22 3a | 68 5f 63 6f 6e 73 74 3d |... "h":|h_const=|
|00004600| 6e 75 6d 0d 1b e4 15 c9 | 20 22 69 22 3a 69 5f 63 |num.....| "i":i_c|
|00004610| 6f 6e 73 74 3d 6e 75 6d | 0d 1b ee 15 c9 20 22 6a |onst=num|..... "j|
|00004620| 22 3a 6a 5f 63 6f 6e 73 | 74 3d 6e 75 6d 0d 1b f8 |":j_cons|t=num...|
|00004630| 15 c9 20 22 6b 22 3a 6b | 5f 63 6f 6e 73 74 3d 6e |.. "k":k|_const=n|
|00004640| 75 6d 0d 1c 02 15 c9 20 | 22 6c 22 3a 6c 5f 63 6f |um..... |"l":l_co|
|00004650| 6e 73 74 3d 6e 75 6d 0d | 1c 0c 15 c9 20 22 6d 22 |nst=num.|.... "m"|
|00004660| 3a 6d 5f 63 6f 6e 73 74 | 3d 6e 75 6d 0d 1c 16 15 |:m_const|=num....|
|00004670| c9 20 22 6e 22 3a 6e 5f | 63 6f 6e 73 74 3d 6e 75 |. "n":n_|const=nu|
|00004680| 6d 0d 1c 20 15 c9 20 22 | 6f 22 3a 6f 5f 63 6f 6e |m.. .. "|o":o_con|
|00004690| 73 74 3d 6e 75 6d 0d 1c | 2a 15 c9 20 22 70 22 3a |st=num..|*.. "p":|
|000046a0| 70 5f 63 6f 6e 73 74 3d | 6e 75 6d 0d 1c 34 15 c9 |p_const=|num..4..|
|000046b0| 20 22 71 22 3a 71 5f 63 | 6f 6e 73 74 3d 6e 75 6d | "q":q_c|onst=num|
|000046c0| 0d 1c 3e 15 c9 20 22 72 | 22 3a 72 5f 63 6f 6e 73 |..>.. "r|":r_cons|
|000046d0| 74 3d 6e 75 6d 0d 1c 48 | 15 c9 20 22 73 22 3a 73 |t=num..H|.. "s":s|
|000046e0| 5f 63 6f 6e 73 74 3d 6e | 75 6d 0d 1c 52 15 c9 20 |_const=n|um..R.. |
|000046f0| 22 74 22 3a 74 5f 63 6f | 6e 73 74 3d 6e 75 6d 0d |"t":t_co|nst=num.|
|00004700| 1c 5c 15 c9 20 22 75 22 | 3a 75 5f 63 6f 6e 73 74 |.\.. "u"|:u_const|
|00004710| 3d 6e 75 6d 0d 1c 66 15 | c9 20 22 76 22 3a 76 5f |=num..f.|. "v":v_|
|00004720| 63 6f 6e 73 74 3d 6e 75 | 6d 0d 1c 70 15 c9 20 22 |const=nu|m..p.. "|
|00004730| 77 22 3a 77 5f 63 6f 6e | 73 74 3d 6e 75 6d 0d 1c |w":w_con|st=num..|
|00004740| 7a 15 c9 20 22 78 22 3a | 78 5f 63 6f 6e 73 74 3d |z.. "x":|x_const=|
|00004750| 6e 75 6d 0d 1c 84 15 c9 | 20 22 79 22 3a 79 5f 63 |num.....| "y":y_c|
|00004760| 6f 6e 73 74 3d 6e 75 6d | 0d 1c 8e 15 c9 20 22 7a |onst=num|..... "z|
|00004770| 22 3a 7a 5f 63 6f 6e 73 | 74 3d 6e 75 6d 0d 1c 98 |":z_cons|t=num...|
|00004780| 05 cb 0d 1c a2 05 cd 0d | 1c ac 12 fd 20 79 25 3c |........|.... y%<|
|00004790| 33 37 20 80 20 73 65 6c | 25 0d 1c b6 08 ef 20 32 |37 . sel|%..... 2|
|000047a0| 36 0d 1c c0 22 f2 77 69 | 6e 64 6f 77 5f 6f 66 66 |6...".wi|ndow_off|
|000047b0| 28 43 68 61 6e 67 65 5f | 63 6f 6e 73 74 25 28 29 |(Change_|const%()|
|000047c0| 2c 31 29 0d 1c ca 05 e1 | 0d 1c d4 05 3a 0d 1c de |,1).....|....:...|
|000047d0| 16 dd 20 a4 6f 70 74 69 | 6f 6e 5f 70 6f 73 69 74 |.. .opti|on_posit|
|000047e0| 69 6f 6e 0d 1c e8 21 ea | 20 58 25 2c 59 25 2c 73 |ion...!.| X%,Y%,s|
|000047f0| 65 6c 65 63 74 25 2c 6d | 65 6e 75 25 2c 61 64 6a |elect%,m|enu%,adj|
|00004800| 75 73 74 25 0d 1c f2 05 | f5 0d 1c fc 29 f2 62 75 |ust%....|....).bu|
|00004810| 74 74 6f 6e 73 28 58 25 | 2c 59 25 2c 73 65 6c 65 |ttons(X%|,Y%,sele|
|00004820| 63 74 25 2c 6d 65 6e 75 | 25 2c 61 64 6a 75 73 74 |ct%,menu|%,adjust|
|00004830| 25 29 0d 1d 06 0c fd 73 | 65 6c 65 63 74 25 0d 1d |%).....s|elect%..|
|00004840| 10 07 3d 59 25 0d 1d 1a | 05 3a 0d 1d 24 17 dd 20 |..=Y%...|.:..$.. |
|00004850| a4 77 68 69 63 68 5f 6f | 70 74 69 6f 6e 28 79 25 |.which_o|ption(y%|
|00004860| 29 0d 1d 2e 10 ea 20 6f | 70 74 69 6f 6e 25 2c 4f |)..... o|ption%,O|
|00004870| 25 0d 1d 38 0d 6f 70 74 | 69 6f 6e 25 3d 30 0d 1d |%..8.opt|ion%=0..|
|00004880| 42 15 e7 20 79 25 3e 6f | 70 74 25 28 4f 70 74 25 |B.. y%>o|pt%(Opt%|
|00004890| 29 20 8c 0d 1d 4c 10 6f | 70 74 69 6f 6e 25 3d 4f |) ...L.o|ption%=O|
|000048a0| 70 74 25 0d 1d 56 05 cc | 0d 1d 60 10 e3 4f 25 3d |pt%..V..|..`..O%=|
|000048b0| 30 b8 4f 70 74 25 2d 31 | 0d 1d 6a 2f e7 20 79 25 |0.Opt%-1|..j/. y%|
|000048c0| 3e 3d 6f 70 74 25 28 4f | 25 29 20 80 20 79 25 3c |>=opt%(O|%) . y%<|
|000048d0| 6f 70 74 25 28 4f 25 2b | 31 29 20 8c 20 6f 70 74 |opt%(O%+|1) . opt|
|000048e0| 69 6f 6e 25 3d 4f 25 0d | 1d 74 07 ed 4f 25 0d 1d |ion%=O%.|.t..O%..|
|000048f0| 7e 05 cd 0d 1d 88 0c 3d | 6f 70 74 69 6f 6e 25 0d |~......=|option%.|
|00004900| 1d 92 05 3a 0d 1d 9c 1d | dd 20 a4 69 6e 70 75 74 |...:....|. .input|
|00004910| 5f 6e 75 6d 62 65 72 28 | 53 24 2c 58 25 2c 59 25 |_number(|S$,X%,Y%|
|00004920| 29 0d 1d a6 14 ea 20 49 | 25 2c 50 25 2c 4b 25 2c |)..... I|%,P%,K%,|
|00004930| 6e 24 2c 69 24 0d 1d b0 | 09 69 24 3d 22 22 0d 1d |n$,i$...|.i$=""..|
|00004940| ba 08 49 25 3d 31 0d 1d | c4 05 f5 0d 1d ce 29 e7 |..I%=1..|......).|
|00004950| 20 c1 53 24 2c 49 25 2c | 31 29 3d 22 3a 22 20 8c | .S$,I%,|1)=":" .|
|00004960| 20 69 24 3d c0 53 24 2c | 49 25 29 3a 49 25 3d a9 | i$=.S$,|I%):I%=.|
|00004970| 28 53 24 29 0d 1d d8 09 | 49 25 2b 3d 31 0d 1d e2 |(S$)....|I%+=1...|
|00004980| 0d fd 49 25 3e a9 28 53 | 24 29 0d 1d ec 05 f5 0d |..I%>.(S|$)......|
|00004990| 1d f6 09 6e 24 3d 22 22 | 0d 1e 00 0a ec 58 25 2c |...n$=""|.....X%,|
|000049a0| 59 25 0d 1e 0a 1a f1 69 | 24 3b 89 28 31 32 29 3b |Y%.....i|$;.(12);|
|000049b0| c4 31 32 2c bd 28 31 32 | 37 29 29 3b 0d 1e 14 05 |.12,.(12|7));....|
|000049c0| ee 0d 1e 1e 08 49 25 3d | 31 0d 1e 28 09 2a 46 58 |.....I%=|1..(.*FX|
|000049d0| 32 31 0d 1e 32 05 f5 0d | 1e 3c 08 4b 25 3d a5 0d |21..2...|.<.K%=..|
|000049e0| 1e 46 24 50 25 3d a7 22 | 31 32 33 34 35 36 37 38 |.F$P%=."|12345678|
|000049f0| 39 30 2e 2d 22 2b bd 28 | 31 32 37 29 2c bd 28 4b |90.-"+.(|127),.(K|
|00004a00| 25 29 29 0d 1e 50 30 e7 | 20 50 25 3e 3d 31 20 80 |%))..P0.| P%>=1 .|
|00004a10| 20 50 25 3c 3d 31 31 20 | 8c 20 6e 24 3d 6e 24 2b | P%<=11 |. n$=n$+|
|00004a20| bd 28 4b 25 29 3a 49 25 | 2b 3d 31 3a f1 bd 28 4b |.(K%):I%|+=1:..(K|
|00004a30| 25 29 3b 0d 1e 5a 2b e7 | 20 50 25 3d 31 32 20 80 |%);..Z+.| P%=12 .|
|00004a40| 20 49 25 3d 31 20 8c 20 | 6e 24 3d bd 28 4b 25 29 | I%=1 . |n$=.(K%)|
|00004a50| 3a 49 25 2b 3d 31 3a f1 | bd 28 4b 25 29 3b 0d 1e |:I%+=1:.|.(K%);..|
|00004a60| 64 32 e7 20 50 25 3d 31 | 33 20 80 20 49 25 3e 31 |d2. P%=1|3 . I%>1|
|00004a70| 20 8c 20 6e 24 3d c0 6e | 24 2c a9 28 6e 24 29 2d | . n$=.n|$,.(n$)-|
|00004a80| 31 29 3a 49 25 2d 3d 31 | 3a f1 20 bd 31 32 37 3b |1):I%-=1|:. .127;|
|00004a90| 0d 1e 6e 05 3a 0d 1e 78 | 12 fd 49 25 3e 31 32 20 |..n.:..x|..I%>12 |
|00004aa0| 84 20 4b 25 3d 31 33 0d | 1e 82 05 87 0d 1e 8c 3a |. K%=13.|.......:|
|00004ab0| e7 20 a9 28 6e 24 29 3e | 38 20 8c 20 f1 c4 a9 28 |. .(n$)>|8 . ...(|
|00004ac0| 6e 24 29 2c bd 28 31 32 | 37 29 29 22 74 6f 6f 20 |n$),.(12|7))"too |
|00004ad0| 62 69 67 21 22 3a 4b 25 | 3d 91 3a f5 3a fd 91 3e |big!":K%|=.:.:..>|
|00004ae0| 4b 25 2b 31 30 30 0d 1e | 96 0d fd a9 28 6e 24 29 |K%+100..|....(n$)|
|00004af0| 3c 3d 38 0d 1e a0 0a 3d | bb 28 6e 24 29 0d 1e aa |<=8....=|.(n$)...|
|00004b00| 05 3a 0d 1e b4 13 dd 20 | f2 6e 65 77 5f 66 75 6e |.:..... |.new_fun|
|00004b10| 63 74 69 6f 6e 0d 1e be | 07 ef 32 36 0d 1e c8 2d |ction...|..26...-|
|00004b20| f2 77 69 6e 64 6f 77 5f | 6f 6e 28 4e 65 77 5f 47 |.window_|on(New_G|
|00004b30| 72 61 70 68 31 25 28 29 | 2c 77 69 6e 64 6f 77 5f |raph1%()|,window_|
|00004b40| 63 6f 6c 25 2c b9 2c 31 | 29 0d 1e d2 12 e7 20 63 |col%,.,1|)..... c|
|00004b50| 61 72 74 65 73 69 61 6e | 25 20 8c 0d 1e dc 1b f2 |artesian|% ......|
|00004b60| 63 68 61 6e 67 65 28 22 | 59 20 3d 20 22 2c 44 43 |change("|Y = ",DC|
|00004b70| 24 2c 43 59 24 29 0d 1e | e6 1e e7 20 44 43 24 3d |$,CY$)..|... DC$=|
|00004b80| 22 22 20 8c 20 44 43 24 | 3d 22 58 22 3a 43 59 24 |"" . DC$|="X":CY$|
|00004b90| 3d 22 58 22 0d 1e f0 05 | cd 0d 1e fa 0e e7 20 70 |="X"....|...... p|
|00004ba0| 6f 6c 61 72 25 20 8c 0d | 1f 04 1a f2 63 68 61 6e |olar% ..|....chan|
|00004bb0| 67 65 28 22 52 20 3d 20 | 22 2c 44 50 24 2c 50 24 |ge("R = |",DP$,P$|
|00004bc0| 29 0d 1f 0e 1e e7 20 44 | 50 24 3d 22 22 20 8c 20 |)..... D|P$="" . |
|00004bd0| 44 50 24 3d 22 ff 22 3a | 50 24 3d 22 54 68 22 0d |DP$=".":|P$="Th".|
|00004be0| 1f 18 05 cd 0d 1f 22 13 | e7 20 70 61 72 61 6d 65 |......".|. parame|
|00004bf0| 74 72 69 63 25 20 8c 0d | 1f 2c 1c f2 63 68 61 6e |tric% ..|.,..chan|
|00004c00| 67 65 28 22 58 20 3d 20 | 22 2c 44 50 58 24 2c 50 |ge("X = |",DPX$,P|
|00004c10| 58 24 29 0d 1f 36 20 e7 | 20 44 50 58 24 3d 22 22 |X$)..6 .| DPX$=""|
|00004c20| 20 8c 20 44 50 58 24 3d | 22 54 22 3a 50 58 24 3d | . DPX$=|"T":PX$=|
|00004c30| 22 54 22 0d 1f 40 1c f2 | 63 68 61 6e 67 65 28 22 |"T"..@..|change("|
|00004c40| 59 20 3d 20 22 2c 44 50 | 59 24 2c 50 59 24 29 0d |Y = ",DP|Y$,PY$).|
|00004c50| 1f 4a 20 e7 20 44 50 59 | 24 3d 22 22 20 8c 20 44 |.J . DPY|$="" . D|
|00004c60| 50 59 24 3d 22 54 22 3a | 50 59 24 3d 22 54 22 0d |PY$="T":|PY$="T".|
|00004c70| 1f 54 05 cd 0d 1f 5e 09 | ef 34 2c 32 36 0d 1f 68 |.T....^.|.4,26..h|
|00004c80| 20 f2 77 69 6e 64 6f 77 | 5f 6f 66 66 28 4e 65 77 | .window|_off(New|
|00004c90| 5f 47 72 61 70 68 31 25 | 28 29 2c 31 29 0d 1f 72 |_Graph1%|(),1)..r|
|00004ca0| 05 e1 0d 1f 7c 05 3a 0d | 1f 86 20 dd 20 f2 63 68 |....|.:.|.. . .ch|
|00004cb0| 61 6e 67 65 28 53 24 2c | f8 20 44 69 73 24 2c f8 |ange(S$,|. Dis$,.|
|00004cc0| 20 46 75 6e 63 24 29 0d | 1f 90 1d ea 20 44 24 2c | Func$).|.... D$,|
|00004cd0| 46 24 2c 71 75 69 74 25 | 2c 6f 70 65 6e 25 2c 6c |F$,quit%|,open%,l|
|00004ce0| 61 73 74 25 0d 1f 9a 13 | 6d 75 6c 74 69 25 3d a3 |ast%....|multi%=.|
|00004cf0| 3a 61 72 63 25 3d a3 0d | 1f a4 0b 44 69 73 24 3d |:arc%=..|...Dis$=|
|00004d00| 22 22 0d 1f ae 0c 46 75 | 6e 63 24 3d 22 22 0d 1f |""....Fu|nc$=""..|
|00004d10| b8 0b 71 75 69 74 25 3d | a3 0d 1f c2 0b 6f 70 65 |..quit%=|.....ope|
|00004d20| 6e 25 3d 30 0d 1f cc 0b | 6c 61 73 74 25 3d 30 0d |n%=0....|last%=0.|
|00004d30| 1f d6 05 f5 0d 1f e0 1d | e6 30 2c 31 32 38 2b 77 |........|.0,128+w|
|00004d40| 69 6e 64 6f 77 5f 63 6f | 6c 25 20 c8 9c 20 31 32 |indow_co|l% .. 12|
|00004d50| 38 0d 1f ea 0f e7 20 ac | 61 72 63 25 20 8c 20 da |8..... .|arc% . .|
|00004d60| 0d 1f f4 27 f2 66 75 6e | 63 74 69 6f 6e 5f 6d 65 |...'.fun|ction_me|
|00004d70| 6e 75 28 53 24 2c 44 69 | 73 24 2c 44 24 2c 46 24 |nu(S$,Di|s$,D$,F$|
|00004d80| 2c 71 75 69 74 25 29 0d | 1f fe 16 e7 20 c0 44 24 |,quit%).|.... .D$|
|00004d90| 2c 31 29 3c 3e bd 28 31 | 32 37 29 20 8c 0d 20 08 |,1)<>.(1|27) .. .|
|00004da0| 10 44 69 73 24 3d 44 69 | 73 24 2b 44 24 0d 20 12 |.Dis$=Di|s$+D$. .|
|00004db0| 12 46 75 6e 63 24 3d 46 | 75 6e 63 24 2b 46 24 0d |.Func$=F|unc$+F$.|
|00004dc0| 20 1c 05 cc 0d 20 26 1d | e7 20 c2 44 69 73 24 2c | .... &.|. .Dis$,|
|00004dd0| 31 29 3d 22 28 22 20 8c | 20 6f 70 65 6e 25 2d 3d |1)="(" .| open%-=|
|00004de0| 31 0d 20 30 1d 44 69 73 | 24 3d c0 44 69 73 24 2c |1. 0.Dis|$=.Dis$,|
|00004df0| a9 28 44 69 73 24 29 2d | a9 28 44 24 29 29 0d 20 |.(Dis$)-|.(D$)). |
|00004e00| 3a 20 46 75 6e 63 24 3d | c0 46 75 6e 63 24 2c a9 |: Func$=|.Func$,.|
|00004e10| 28 46 75 6e 63 24 29 2d | a9 28 46 24 29 29 0d 20 |(Func$)-|.(F$)). |
|00004e20| 44 05 cd 0d 20 4e 0a fd | 71 75 69 74 25 0d 20 58 |D... N..|quit%. X|
|00004e30| 0f e7 20 6f 70 65 6e 25 | 3e 30 20 8c 0d 20 62 19 |.. open%|>0 .. b.|
|00004e40| 44 69 73 24 3d 44 69 73 | 24 2b c4 6f 70 65 6e 25 |Dis$=Dis|$+.open%|
|00004e50| 2c 22 29 22 29 0d 20 6c | 1b 46 75 6e 63 24 3d 46 |,")"). l|.Func$=F|
|00004e60| 75 6e 63 24 2b c4 6f 70 | 65 6e 25 2c 22 29 22 29 |unc$+.op|en%,")")|
|00004e70| 0d 20 76 05 cd 0d 20 80 | 05 e1 0d 20 8a 05 3a 0d |. v... .|... ..:.|
|00004e80| 20 94 2f dd 20 f2 66 75 | 6e 63 74 69 6f 6e 5f 6d | ./. .fu|nction_m|
|00004e90| 65 6e 75 28 53 24 2c 44 | 69 73 24 2c f8 20 44 24 |enu(S$,D|is$,. D$|
|00004ea0| 2c f8 20 46 24 2c f8 20 | 71 75 69 74 25 29 0d 20 |,. F$,. |quit%). |
|00004eb0| 9e 37 ea 20 70 6f 73 25 | 2c 79 5f 74 6f 70 25 2c |.7. pos%|,y_top%,|
|00004ec0| 79 5f 62 6f 74 74 6f 6d | 25 2c 58 25 2c 59 25 2c |y_bottom|%,X%,Y%,|
|00004ed0| 73 65 6c 65 63 74 25 2c | 6d 65 6e 75 25 2c 61 64 |select%,|menu%,ad|
|00004ee0| 6a 75 73 74 25 0d 20 a8 | 38 79 5f 74 6f 70 25 3d |just%. .|8y_top%=|
|00004ef0| 4e 65 77 5f 47 72 61 70 | 68 31 25 28 33 29 2d 4e |New_Grap|h1%(3)-N|
|00004f00| 65 77 5f 47 72 61 70 68 | 31 25 28 31 29 2d 35 30 |ew_Graph|1%(1)-50|
|00004f10| 3a 79 5f 62 6f 74 74 6f | 6d 25 3d 35 30 0d 20 b2 |:y_botto|m%=50. .|
|00004f20| 14 74 6f 70 25 3d a3 3a | 62 6f 74 74 6f 6d 25 3d |.top%=.:|bottom%=|
|00004f30| a3 0d 20 bc 0b 70 6f 73 | 25 3d 32 30 0d 20 c6 17 |.. ..pos|%=20. ..|
|00004f40| ef 35 2c 32 33 2c 31 37 | 2c 37 2c 36 2c 38 3b 38 |.5,23,17|,7,6,8;8|
|00004f50| 3b 30 7c 0d 20 d0 17 e6 | 30 2c 77 69 6e 64 6f 77 |;0|. ...|0,window|
|00004f60| 5f 74 65 78 74 5f 63 6f | 6c 25 0d 20 da 0d e7 20 |_text_co|l%. ... |
|00004f70| ac 61 72 63 25 20 8c 0d | 20 e4 11 ec 20 70 6f 73 |.arc% ..| ... pos|
|00004f80| 25 2c 79 5f 74 6f 70 25 | 0d 20 ee 10 f1 66 5f 6d |%,y_top%|. ...f_m|
|00004f90| 65 6e 75 5f 74 6f 70 24 | 0d 20 f8 14 ec 20 70 6f |enu_top$|. ... po|
|00004fa0| 73 25 2c 79 5f 62 6f 74 | 74 6f 6d 25 0d 21 02 13 |s%,y_bot|tom%.!..|
|00004fb0| f1 66 5f 6d 65 6e 75 5f | 62 6f 74 74 6f 6d 24 0d |.f_menu_|bottom$.|
|00004fc0| 21 0c 0d ec 70 6f 73 25 | 2c 31 37 30 0d 21 16 0c |!...pos%|,170.!..|
|00004fd0| f1 53 24 3b 44 69 73 24 | 0d 21 20 05 cd 0d 21 2a |.S$;Dis$|.! ...!*|
|00004fe0| 05 f5 0d 21 34 29 f2 62 | 75 74 74 6f 6e 73 28 58 |...!4).b|uttons(X|
|00004ff0| 25 2c 59 25 2c 73 65 6c | 65 63 74 25 2c 6d 65 6e |%,Y%,sel|ect%,men|
|00005000| 75 25 2c 61 64 6a 75 73 | 74 25 29 0d 21 3e 33 e7 |u%,adjus|t%).!>3.|
|00005010| 20 59 25 3e 79 5f 74 6f | 70 25 2d 33 30 20 80 20 | Y%>y_to|p%-30 . |
|00005020| 59 25 3c 79 5f 74 6f 70 | 25 2b 35 20 80 20 73 65 |Y%<y_top|%+5 . se|
|00005030| 6c 65 63 74 25 20 8c 20 | 74 6f 70 25 3d b9 0d 21 |lect% . |top%=..!|
|00005040| 48 3c e7 20 59 25 3e 79 | 5f 62 6f 74 74 6f 6d 25 |H<. Y%>y|_bottom%|
|00005050| 2d 33 30 20 80 20 59 25 | 3c 79 5f 62 6f 74 74 6f |-30 . Y%|<y_botto|
|00005060| 6d 25 2b 35 20 80 20 73 | 65 6c 65 63 74 25 20 8c |m%+5 . s|elect% .|
|00005070| 20 62 6f 74 74 6f 6d 25 | 3d b9 0d 21 52 14 fd 20 | bottom%|=..!R.. |
|00005080| 74 6f 70 25 20 84 20 62 | 6f 74 74 6f 6d 25 0d 21 |top% . b|ottom%.!|
|00005090| 5c 2e e7 20 74 6f 70 25 | 20 8c 20 f2 64 65 63 6f |\.. top%| . .deco|
|000050a0| 64 65 5f 74 6f 70 5f 66 | 75 6e 63 74 69 6f 6e 28 |de_top_f|unction(|
|000050b0| 58 25 2d 32 30 2c 44 24 | 2c 46 24 29 0d 21 66 34 |X%-20,D$|,F$).!f4|
|000050c0| e7 20 62 6f 74 74 6f 6d | 25 20 8c 20 f2 64 65 63 |. bottom|% . .dec|
|000050d0| 6f 64 65 5f 62 6f 74 74 | 6f 6d 5f 66 75 6e 63 74 |ode_bott|om_funct|
|000050e0| 69 6f 6e 28 58 25 2d 32 | 30 2c 44 24 2c 46 24 29 |ion(X%-2|0,D$,F$)|
|000050f0| 0d 21 70 05 e1 0d 21 7a | 05 3a 0d 21 84 35 dd 20 |.!p...!z|.:.!.5. |
|00005100| f2 64 65 63 6f 64 65 5f | 74 6f 70 5f 66 75 6e 63 |.decode_|top_func|
|00005110| 74 69 6f 6e 28 58 25 2c | f8 20 64 69 73 70 6c 61 |tion(X%,|. displa|
|00005120| 79 24 2c f8 20 66 75 6e | 63 74 69 6f 6e 24 29 0d |y$,. fun|ction$).|
|00005130| 21 8e 1c 64 69 73 70 6c | 61 79 24 3d 22 22 3a 66 |!..displ|ay$="":f|
|00005140| 75 6e 63 74 69 6f 6e 24 | 3d 22 22 0d 21 98 23 66 |unction$|="".!.#f|
|00005150| 75 6e 63 25 3d a4 63 68 | 65 63 6b 5f 66 75 6e 63 |unc%=.ch|eck_func|
|00005160| 74 69 6f 6e 28 22 74 6f | 70 22 2c 58 25 29 0d 21 |tion("to|p",X%).!|
|00005170| a2 43 e7 20 ac 61 72 63 | 25 20 84 20 28 61 72 63 |.C. .arc|% . (arc|
|00005180| 25 20 80 20 66 75 6e 63 | 25 3e 3d 31 32 20 80 20 |% . func|%>=12 . |
|00005190| 66 75 6e 63 25 3c 3d 32 | 30 29 20 8c 20 f2 69 6e |func%<=2|0) . .in|
|000051a0| 76 65 72 74 28 22 74 6f | 70 22 2c 66 75 6e 63 25 |vert("to|p",func%|
|000051b0| 29 0d 21 ac 0e c8 8e 20 | 66 75 6e 63 25 20 ca 0d |).!.... |func% ..|
|000051c0| 21 b6 07 c9 20 30 0d 21 | c0 3a e7 20 ac 61 72 63 |!... 0.!|.:. .arc|
|000051d0| 25 20 8c 20 64 69 73 70 | 6c 61 79 24 3d 22 20 2b |% . disp|lay$=" +|
|000051e0| 20 22 3a 66 75 6e 63 74 | 69 6f 6e 24 3d 22 2b 22 | ":funct|ion$="+"|
|000051f0| 3a 6d 75 6c 74 69 25 3d | a3 3a 61 72 63 25 3d a3 |:multi%=|.:arc%=.|
|00005200| 0d 21 ca 07 c9 20 31 0d | 21 d4 3a e7 20 ac 61 72 |.!... 1.|!.:. .ar|
|00005210| 63 25 20 8c 20 64 69 73 | 70 6c 61 79 24 3d 22 20 |c% . dis|play$=" |
|00005220| 2d 20 22 3a 66 75 6e 63 | 74 69 6f 6e 24 3d 22 2d |- ":func|tion$="-|
|00005230| 22 3a 6d 75 6c 74 69 25 | 3d a3 3a 61 72 63 25 3d |":multi%|=.:arc%=|
|00005240| a3 0d 21 de 07 c9 20 32 | 0d 21 e8 3a e7 20 ac 61 |..!... 2|.!.:. .a|
|00005250| 72 63 25 20 8c 20 64 69 | 73 70 6c 61 79 24 3d 22 |rc% . di|splay$="|
|00005260| 20 78 20 22 3a 66 75 6e | 63 74 69 6f 6e 24 3d 22 | x ":fun|ction$="|
|00005270| 2a 22 3a 6d 75 6c 74 69 | 25 3d a3 3a 61 72 63 25 |*":multi|%=.:arc%|
|00005280| 3d a3 0d 21 f2 07 c9 20 | 33 0d 21 fc 43 e7 20 ac |=..!... |3.!.C. .|
|00005290| 61 72 63 25 20 8c 20 64 | 69 73 70 6c 61 79 24 3d |arc% . d|isplay$=|
|000052a0| 22 20 22 2b bd 28 32 34 | 37 29 2b 22 20 22 3a 66 |" "+.(24|7)+" ":f|
|000052b0| 75 6e 63 74 69 6f 6e 24 | 3d 22 2f 22 3a 6d 75 6c |unction$|="/":mul|
|000052c0| 74 69 25 3d a3 3a 61 72 | 63 25 3d a3 0d 22 06 07 |ti%=.:ar|c%=.."..|
|000052d0| c9 20 34 0d 22 10 0d e7 | 20 ac 61 72 63 25 20 8c |. 4."...| .arc% .|
|000052e0| 0d 22 1a 17 64 69 73 70 | 6c 61 79 24 3d bd 28 31 |."..disp|lay$=.(1|
|000052f0| 32 38 29 2b 22 28 22 0d | 22 24 33 e7 20 6d 75 6c |28)+"(".|"$3. mul|
|00005300| 74 69 25 20 8c 20 66 75 | 6e 63 74 69 6f 6e 24 3d |ti% . fu|nction$=|
|00005310| 22 2a 53 51 52 28 22 20 | 8b 20 66 75 6e 63 74 69 |"*SQR(" |. functi|
|00005320| 6f 6e 24 3d 22 53 51 52 | 28 22 0d 22 2e 13 6d 75 |on$="SQR|("."..mu|
|00005330| 6c 74 69 25 3d a3 3a 61 | 72 63 25 3d a3 0d 22 38 |lti%=.:a|rc%=.."8|
|00005340| 05 cd 0d 22 42 07 c9 20 | 35 0d 22 4c 0d e7 20 ac |..."B.. |5."L.. .|
|00005350| 61 72 63 25 20 8c 0d 22 | 56 13 64 69 73 70 6c 61 |arc% .."|V.displa|
|00005360| 79 24 3d bd 28 31 38 32 | 29 0d 22 60 2f e7 20 6d |y$=.(182|)."`/. m|
|00005370| 75 6c 74 69 25 20 8c 20 | 66 75 6e 63 74 69 6f 6e |ulti% . |function|
|00005380| 24 3d 22 2a 50 49 22 20 | 8b 20 66 75 6e 63 74 69 |$="*PI" |. functi|
|00005390| 6f 6e 24 3d 22 50 49 22 | 0d 22 6a 13 6d 75 6c 74 |on$="PI"|."j.mult|
|000053a0| 69 25 3d b9 3a 61 72 63 | 25 3d a3 0d 22 74 05 cd |i%=.:arc|%=.."t..|
|000053b0| 0d 22 7e 07 c9 20 36 0d | 22 88 0d e7 20 ac 61 72 |."~.. 6.|"... .ar|
|000053c0| 63 25 20 8c 0d 22 92 10 | 64 69 73 70 6c 61 79 24 |c% .."..|display$|
|000053d0| 3d 22 28 22 0d 22 9c 2d | e7 20 6d 75 6c 74 69 25 |="(".".-|. multi%|
|000053e0| 20 8c 20 66 75 6e 63 74 | 69 6f 6e 24 3d 22 2a 28 | . funct|ion$="*(|
|000053f0| 22 20 8b 20 66 75 6e 63 | 74 69 6f 6e 24 3d 22 28 |" . func|tion$="(|
|00005400| 22 0d 22 a6 13 6d 75 6c | 74 69 25 3d a3 3a 61 72 |"."..mul|ti%=.:ar|
|00005410| 63 25 3d a3 0d 22 b0 05 | cd 0d 22 ba 07 c9 20 37 |c%=.."..|.."... 7|
|00005420| 0d 22 c4 38 e7 20 ac 61 | 72 63 25 20 8c 20 64 69 |.".8. .a|rc% . di|
|00005430| 73 70 6c 61 79 24 3d 22 | 29 22 3a 66 75 6e 63 74 |splay$="|)":funct|
|00005440| 69 6f 6e 24 3d 22 29 22 | 3a 6d 75 6c 74 69 25 3d |ion$=")"|:multi%=|
|00005450| b9 3a 61 72 63 25 3d a3 | 0d 22 ce 07 c9 20 38 0d |.:arc%=.|."... 8.|
|00005460| 22 d8 0d e7 20 ac 61 72 | 63 25 20 8c 0d 22 e2 10 |"... .ar|c% .."..|
|00005470| 64 69 73 70 6c 61 79 24 | 3d 22 65 22 0d 22 ec 37 |display$|="e".".7|
|00005480| e7 20 6d 75 6c 74 69 25 | 20 8c 20 66 75 6e 63 74 |. multi%| . funct|
|00005490| 69 6f 6e 24 3d 22 2a 45 | 58 50 28 31 29 22 20 8b |ion$="*E|XP(1)" .|
|000054a0| 20 66 75 6e 63 74 69 6f | 6e 24 3d 22 45 58 50 28 | functio|n$="EXP(|
|000054b0| 31 29 22 0d 22 f6 13 6d | 75 6c 74 69 25 3d a3 3a |1)"."..m|ulti%=.:|
|000054c0| 61 72 63 25 3d a3 0d 23 | 00 05 cd 0d 23 0a 07 c9 |arc%=..#|....#...|
|000054d0| 20 39 0d 23 14 0d e7 20 | ac 61 72 63 25 20 8c 0d | 9.#... |.arc% ..|
|000054e0| 23 1e 12 64 69 73 70 6c | 61 79 24 3d 22 4c 6e 28 |#..displ|ay$="Ln(|
|000054f0| 22 0d 23 28 31 e7 20 6d | 75 6c 74 69 25 20 8c 20 |".#(1. m|ulti% . |
|00005500| 66 75 6e 63 74 69 6f 6e | 24 3d 22 2a 4c 4e 28 22 |function|$="*LN("|
|00005510| 20 8b 20 66 75 6e 63 74 | 69 6f 6e 24 3d 22 4c 4e | . funct|ion$="LN|
|00005520| 28 22 0d 23 32 13 6d 75 | 6c 74 69 25 3d a3 3a 61 |(".#2.mu|lti%=.:a|
|00005530| 72 63 25 3d a3 0d 23 3c | 05 cd 0d 23 46 08 c9 20 |rc%=..#<|...#F.. |
|00005540| 31 30 0d 23 50 0d e7 20 | ac 61 72 63 25 20 8c 0d |10.#P.. |.arc% ..|
|00005550| 23 5a 13 64 69 73 70 6c | 61 79 24 3d 22 4c 6f 67 |#Z.displ|ay$="Log|
|00005560| 28 22 0d 23 64 33 e7 20 | 6d 75 6c 74 69 25 20 8c |(".#d3. |multi% .|
|00005570| 20 66 75 6e 63 74 69 6f | 6e 24 3d 22 2a 4c 4f 47 | functio|n$="*LOG|
|00005580| 28 22 20 8b 20 66 75 6e | 63 74 69 6f 6e 24 3d 22 |(" . fun|ction$="|
|00005590| 4c 4f 47 28 22 0d 23 6e | 13 6d 75 6c 74 69 25 3d |LOG(".#n|.multi%=|
|000055a0| a3 3a 61 72 63 25 3d a3 | 0d 23 78 05 cd 0d 23 82 |.:arc%=.|.#x...#.|
|000055b0| 08 c9 20 31 31 0d 23 8c | 14 e7 20 ac 61 72 63 25 |.. 11.#.|.. .arc%|
|000055c0| 20 8c 20 61 72 63 25 3d | b9 0d 23 96 08 c9 20 31 | . arc%=|..#... 1|
|000055d0| 32 0d 23 a0 05 3a 0d 23 | aa 0d e7 20 ac 61 72 63 |2.#..:.#|... .arc|
|000055e0| 25 20 8c 0d 23 b4 37 e7 | 20 6d 75 6c 74 69 25 20 |% ..#.7.| multi% |
|000055f0| 8c 20 66 75 6e 63 74 69 | 6f 6e 24 3d 22 2a 46 4e |. functi|on$="*FN|
|00005600| 73 69 6e 28 22 20 8b 20 | 66 75 6e 63 74 69 6f 6e |sin(" . |function|
|00005610| 24 3d 22 46 4e 73 69 6e | 28 22 0d 23 be 23 6d 75 |$="FNsin|(".#.#mu|
|00005620| 6c 74 69 25 3d a3 3a 61 | 72 63 25 3d a3 3a 64 69 |lti%=.:a|rc%=.:di|
|00005630| 73 70 6c 61 79 24 3d 22 | 53 69 6e 28 22 0d 23 c8 |splay$="|Sin(".#.|
|00005640| 05 cd 0d 23 d2 0c e7 20 | 61 72 63 25 20 8c 0d 23 |...#... |arc% ..#|
|00005650| dc 3d e7 20 6d 75 6c 74 | 69 25 20 8c 20 66 75 6e |.=. mult|i% . fun|
|00005660| 63 74 69 6f 6e 24 3d 22 | 2a 46 4e 61 72 63 73 69 |ction$="|*FNarcsi|
|00005670| 6e 28 22 20 8b 20 66 75 | 6e 63 74 69 6f 6e 24 3d |n(" . fu|nction$=|
|00005680| 22 46 4e 61 72 63 73 69 | 6e 28 22 0d 23 e6 2b 6d |"FNarcsi|n(".#.+m|
|00005690| 75 6c 74 69 25 3d a3 3a | 61 72 63 25 3d a3 3a 64 |ulti%=.:|arc%=.:d|
|000056a0| 69 73 70 6c 61 79 24 3d | 22 53 69 6e 22 2b bd 32 |isplay$=|"Sin"+.2|
|000056b0| 35 34 2b 22 28 22 0d 23 | f0 05 cd 0d 23 fa 08 c9 |54+"(".#|....#...|
|000056c0| 20 31 33 0d 24 04 05 3a | 0d 24 0e 0d e7 20 ac 61 | 13.$..:|.$... .a|
|000056d0| 72 63 25 20 8c 0d 24 18 | 37 e7 20 6d 75 6c 74 69 |rc% ..$.|7. multi|
|000056e0| 25 20 8c 20 66 75 6e 63 | 74 69 6f 6e 24 3d 22 2a |% . func|tion$="*|
|000056f0| 46 4e 63 6f 73 28 22 20 | 8b 20 66 75 6e 63 74 69 |FNcos(" |. functi|
|00005700| 6f 6e 24 3d 22 46 4e 63 | 6f 73 28 22 0d 24 22 23 |on$="FNc|os(".$"#|
|00005710| 6d 75 6c 74 69 25 3d a3 | 3a 61 72 63 25 3d a3 3a |multi%=.|:arc%=.:|
|00005720| 64 69 73 70 6c 61 79 24 | 3d 22 43 6f 73 28 22 0d |display$|="Cos(".|
|00005730| 24 2c 05 cd 0d 24 36 0c | e7 20 61 72 63 25 20 8c |$,...$6.|. arc% .|
|00005740| 0d 24 40 3d e7 20 6d 75 | 6c 74 69 25 20 8c 20 66 |.$@=. mu|lti% . f|
|00005750| 75 6e 63 74 69 6f 6e 24 | 3d 22 2a 46 4e 61 72 63 |unction$|="*FNarc|
|00005760| 63 6f 73 28 22 20 8b 20 | 66 75 6e 63 74 69 6f 6e |cos(" . |function|
|00005770| 24 3d 22 46 4e 61 72 63 | 63 6f 73 28 22 0d 24 4a |$="FNarc|cos(".$J|
|00005780| 2b 6d 75 6c 74 69 25 3d | a3 3a 61 72 63 25 3d a3 |+multi%=|.:arc%=.|
|00005790| 3a 64 69 73 70 6c 61 79 | 24 3d 22 43 6f 73 22 2b |:display|$="Cos"+|
|000057a0| bd 32 35 34 2b 22 28 22 | 0d 24 54 05 cd 0d 24 5e |.254+"("|.$T...$^|
|000057b0| 08 c9 20 31 34 0d 24 68 | 05 3a 0d 24 72 0d e7 20 |.. 14.$h|.:.$r.. |
|000057c0| ac 61 72 63 25 20 8c 0d | 24 7c 37 e7 20 6d 75 6c |.arc% ..|$|7. mul|
|000057d0| 74 69 25 20 8c 20 66 75 | 6e 63 74 69 6f 6e 24 3d |ti% . fu|nction$=|
|000057e0| 22 2a 46 4e 74 61 6e 28 | 22 20 8b 20 66 75 6e 63 |"*FNtan(|" . func|
|000057f0| 74 69 6f 6e 24 3d 22 46 | 4e 74 61 6e 28 22 0d 24 |tion$="F|Ntan(".$|
|00005800| 86 23 6d 75 6c 74 69 25 | 3d a3 3a 61 72 63 25 3d |.#multi%|=.:arc%=|
|00005810| a3 3a 64 69 73 70 6c 61 | 79 24 3d 22 54 61 6e 28 |.:displa|y$="Tan(|
|00005820| 22 0d 24 90 05 cd 0d 24 | 9a 0c e7 20 61 72 63 25 |".$....$|... arc%|
|00005830| 20 8c 0d 24 a4 3d e7 20 | 6d 75 6c 74 69 25 20 8c | ..$.=. |multi% .|
|00005840| 20 66 75 6e 63 74 69 6f | 6e 24 3d 22 2a 46 4e 61 | functio|n$="*FNa|
|00005850| 72 63 74 61 6e 28 22 20 | 8b 20 66 75 6e 63 74 69 |rctan(" |. functi|
|00005860| 6f 6e 24 3d 22 46 4e 61 | 72 63 74 61 6e 28 22 0d |on$="FNa|rctan(".|
|00005870| 24 ae 2b 6d 75 6c 74 69 | 25 3d a3 3a 61 72 63 25 |$.+multi|%=.:arc%|
|00005880| 3d a3 3a 64 69 73 70 6c | 61 79 24 3d 22 54 61 6e |=.:displ|ay$="Tan|
|00005890| 22 2b bd 32 35 34 2b 22 | 28 22 0d 24 b8 05 cd 0d |"+.254+"|(".$....|
|000058a0| 24 c2 08 c9 20 31 35 0d | 24 cc 05 3a 0d 24 d6 0d |$... 15.|$..:.$..|
|000058b0| e7 20 ac 61 72 63 25 20 | 8c 0d 24 e0 37 e7 20 6d |. .arc% |..$.7. m|
|000058c0| 75 6c 74 69 25 20 8c 20 | 66 75 6e 63 74 69 6f 6e |ulti% . |function|
|000058d0| 24 3d 22 2a 46 4e 73 65 | 63 28 22 20 8b 20 66 75 |$="*FNse|c(" . fu|
|000058e0| 6e 63 74 69 6f 6e 24 3d | 22 46 4e 73 65 63 28 22 |nction$=|"FNsec("|
|000058f0| 0d 24 ea 23 6d 75 6c 74 | 69 25 3d a3 3a 61 72 63 |.$.#mult|i%=.:arc|
|00005900| 25 3d a3 3a 64 69 73 70 | 6c 61 79 24 3d 22 53 65 |%=.:disp|lay$="Se|
|00005910| 63 28 22 0d 24 f4 05 cd | 0d 24 fe 0c e7 20 61 72 |c(".$...|.$... ar|
|00005920| 63 25 20 8c 0d 25 08 3d | e7 20 6d 75 6c 74 69 25 |c% ..%.=|. multi%|
|00005930| 20 8c 20 66 75 6e 63 74 | 69 6f 6e 24 3d 22 2a 46 | . funct|ion$="*F|
|00005940| 4e 61 72 63 73 65 63 28 | 22 20 8b 20 66 75 6e 63 |Narcsec(|" . func|
|00005950| 74 69 6f 6e 24 3d 22 46 | 4e 61 72 63 73 65 63 28 |tion$="F|Narcsec(|
|00005960| 22 0d 25 12 2b 6d 75 6c | 74 69 25 3d a3 3a 61 72 |".%.+mul|ti%=.:ar|
|00005970| 63 25 3d a3 3a 64 69 73 | 70 6c 61 79 24 3d 22 53 |c%=.:dis|play$="S|
|00005980| 65 63 22 2b bd 32 35 34 | 2b 22 28 22 0d 25 1c 05 |ec"+.254|+"(".%..|
|00005990| cd 0d 25 26 08 c9 20 31 | 36 0d 25 30 05 3a 0d 25 |..%&.. 1|6.%0.:.%|
|000059a0| 3a 0d e7 20 ac 61 72 63 | 25 20 8c 0d 25 44 3b e7 |:.. .arc|% ..%D;.|
|000059b0| 20 6d 75 6c 74 69 25 20 | 8c 20 66 75 6e 63 74 69 | multi% |. functi|
|000059c0| 6f 6e 24 3d 22 2a 46 4e | 63 6f 73 65 63 28 22 20 |on$="*FN|cosec(" |
|000059d0| 8b 20 66 75 6e 63 74 69 | 6f 6e 24 3d 22 46 4e 63 |. functi|on$="FNc|
|000059e0| 6f 73 65 63 28 22 0d 25 | 4e 25 6d 75 6c 74 69 25 |osec(".%|N%multi%|
|000059f0| 3d a3 3a 61 72 63 25 3d | a3 3a 64 69 73 70 6c 61 |=.:arc%=|.:displa|
|00005a00| 79 24 3d 22 43 6f 73 65 | 63 28 22 0d 25 58 05 cd |y$="Cose|c(".%X..|
|00005a10| 0d 25 62 0c e7 20 61 72 | 63 25 20 8c 0d 25 6c 41 |.%b.. ar|c% ..%lA|
|00005a20| e7 20 6d 75 6c 74 69 25 | 20 8c 20 66 75 6e 63 74 |. multi%| . funct|
|00005a30| 69 6f 6e 24 3d 22 2a 46 | 4e 61 72 63 63 6f 73 65 |ion$="*F|Narccose|
|00005a40| 63 28 22 20 8b 20 66 75 | 6e 63 74 69 6f 6e 24 3d |c(" . fu|nction$=|
|00005a50| 22 46 4e 61 72 63 63 6f | 73 65 63 28 22 0d 25 76 |"FNarcco|sec(".%v|
|00005a60| 2d 6d 75 6c 74 69 25 3d | a3 3a 61 72 63 25 3d a3 |-multi%=|.:arc%=.|
|00005a70| 3a 64 69 73 70 6c 61 79 | 24 3d 22 43 6f 73 65 63 |:display|$="Cosec|
|00005a80| 22 2b bd 32 35 34 2b 22 | 28 22 0d 25 80 05 cd 0d |"+.254+"|(".%....|
|00005a90| 25 8a 08 c9 20 31 37 0d | 25 94 05 3a 0d 25 9e 0d |%... 17.|%..:.%..|
|00005aa0| e7 20 ac 61 72 63 25 20 | 8c 0d 25 a8 37 e7 20 6d |. .arc% |..%.7. m|
|00005ab0| 75 6c 74 69 25 20 8c 20 | 66 75 6e 63 74 69 6f 6e |ulti% . |function|
|00005ac0| 24 3d 22 2a 46 4e 63 6f | 74 28 22 20 8b 20 66 75 |$="*FNco|t(" . fu|
|00005ad0| 6e 63 74 69 6f 6e 24 3d | 22 46 4e 63 6f 74 28 22 |nction$=|"FNcot("|
|00005ae0| 0d 25 b2 23 6d 75 6c 74 | 69 25 3d a3 3a 61 72 63 |.%.#mult|i%=.:arc|
|00005af0| 25 3d a3 3a 64 69 73 70 | 6c 61 79 24 3d 22 43 6f |%=.:disp|lay$="Co|
|00005b00| 74 28 22 0d 25 bc 05 cd | 0d 25 c6 0c e7 20 61 72 |t(".%...|.%... ar|
|00005b10| 63 25 20 8c 0d 25 d0 3d | e7 20 6d 75 6c 74 69 25 |c% ..%.=|. multi%|
|00005b20| 20 8c 20 66 75 6e 63 74 | 69 6f 6e 24 3d 22 2a 46 | . funct|ion$="*F|
|00005b30| 4e 61 72 63 63 6f 74 28 | 22 20 8b 20 66 75 6e 63 |Narccot(|" . func|
|00005b40| 74 69 6f 6e 24 3d 22 46 | 4e 61 72 63 63 6f 74 28 |tion$="F|Narccot(|
|00005b50| 22 0d 25 da 2b 6d 75 6c | 74 69 25 3d a3 3a 61 72 |".%.+mul|ti%=.:ar|
|00005b60| 63 25 3d a3 3a 64 69 73 | 70 6c 61 79 24 3d 22 43 |c%=.:dis|play$="C|
|00005b70| 6f 74 22 2b bd 32 35 34 | 2b 22 28 22 0d 25 e4 05 |ot"+.254|+"(".%..|
|00005b80| cd 0d 25 ee 08 c9 20 31 | 38 0d 25 f8 05 3a 0d 26 |..%... 1|8.%..:.&|
|00005b90| 02 05 3a 0d 26 0c 0d e7 | 20 ac 61 72 63 25 20 8c |..:.&...| .arc% .|
|00005ba0| 0d 26 16 39 e7 20 6d 75 | 6c 74 69 25 20 8c 20 66 |.&.9. mu|lti% . f|
|00005bb0| 75 6e 63 74 69 6f 6e 24 | 3d 22 2a 46 4e 73 69 6e |unction$|="*FNsin|
|00005bc0| 68 28 22 20 8b 20 66 75 | 6e 63 74 69 6f 6e 24 3d |h(" . fu|nction$=|
|00005bd0| 22 46 4e 73 69 6e 68 28 | 22 0d 26 20 24 6d 75 6c |"FNsinh(|".& $mul|
|00005be0| 74 69 25 3d a3 3a 61 72 | 63 25 3d a3 3a 64 69 73 |ti%=.:ar|c%=.:dis|
|00005bf0| 70 6c 61 79 24 3d 22 53 | 69 6e 68 28 22 0d 26 2a |play$="S|inh(".&*|
|00005c00| 05 cd 0d 26 34 0c e7 20 | 61 72 63 25 20 8c 0d 26 |...&4.. |arc% ..&|
|00005c10| 3e 3f e7 20 6d 75 6c 74 | 69 25 20 8c 20 66 75 6e |>?. mult|i% . fun|
|00005c20| 63 74 69 6f 6e 24 3d 22 | 2a 46 4e 61 72 63 73 69 |ction$="|*FNarcsi|
|00005c30| 6e 68 28 22 20 8b 20 66 | 75 6e 63 74 69 6f 6e 24 |nh(" . f|unction$|
|00005c40| 3d 22 46 4e 61 72 63 73 | 69 6e 68 28 22 0d 26 48 |="FNarcs|inh(".&H|
|00005c50| 2c 6d 75 6c 74 69 25 3d | a3 3a 61 72 63 25 3d a3 |,multi%=|.:arc%=.|
|00005c60| 3a 64 69 73 70 6c 61 79 | 24 3d 22 53 69 6e 68 22 |:display|$="Sinh"|
|00005c70| 2b bd 32 35 34 2b 22 28 | 22 0d 26 52 05 cd 0d 26 |+.254+"(|".&R...&|
|00005c80| 5c 08 c9 20 31 39 0d 26 | 66 05 3a 0d 26 70 05 3a |\.. 19.&|f.:.&p.:|
|00005c90| 0d 26 7a 0d e7 20 ac 61 | 72 63 25 20 8c 0d 26 84 |.&z.. .a|rc% ..&.|
|00005ca0| 39 e7 20 6d 75 6c 74 69 | 25 20 8c 20 66 75 6e 63 |9. multi|% . func|
|00005cb0| 74 69 6f 6e 24 3d 22 2a | 46 4e 63 6f 73 68 28 22 |tion$="*|FNcosh("|
|00005cc0| 20 8b 20 66 75 6e 63 74 | 69 6f 6e 24 3d 22 46 4e | . funct|ion$="FN|
|00005cd0| 63 6f 73 68 28 22 0d 26 | 8e 24 6d 75 6c 74 69 25 |cosh(".&|.$multi%|
|00005ce0| 3d a3 3a 61 72 63 25 3d | a3 3a 64 69 73 70 6c 61 |=.:arc%=|.:displa|
|00005cf0| 79 24 3d 22 43 6f 73 68 | 28 22 0d 26 98 05 cd 0d |y$="Cosh|(".&....|
|00005d00| 26 a2 0c e7 20 61 72 63 | 25 20 8c 0d 26 ac 3f e7 |&... arc|% ..&.?.|
|00005d10| 20 6d 75 6c 74 69 25 20 | 8c 20 66 75 6e 63 74 69 | multi% |. functi|
|00005d20| 6f 6e 24 3d 22 2a 46 4e | 61 72 63 63 6f 73 68 28 |on$="*FN|arccosh(|
|00005d30| 22 20 8b 20 66 75 6e 63 | 74 69 6f 6e 24 3d 22 46 |" . func|tion$="F|
|00005d40| 4e 61 72 63 63 6f 73 68 | 28 22 0d 26 b6 2c 6d 75 |Narccosh|(".&.,mu|
|00005d50| 6c 74 69 25 3d a3 3a 61 | 72 63 25 3d a3 3a 64 69 |lti%=.:a|rc%=.:di|
|00005d60| 73 70 6c 61 79 24 3d 22 | 43 6f 73 68 22 2b bd 32 |splay$="|Cosh"+.2|
|00005d70| 35 34 2b 22 28 22 0d 26 | c0 05 cd 0d 26 ca 08 c9 |54+"(".&|....&...|
|00005d80| 20 32 30 0d 26 d4 05 3a | 0d 26 de 05 3a 0d 26 e8 | 20.&..:|.&..:.&.|
|00005d90| 0d e7 20 ac 61 72 63 25 | 20 8c 0d 26 f2 39 e7 20 |.. .arc%| ..&.9. |
|00005da0| 6d 75 6c 74 69 25 20 8c | 20 66 75 6e 63 74 69 6f |multi% .| functio|
|00005db0| 6e 24 3d 22 2a 46 4e 74 | 61 6e 68 28 22 20 8b 20 |n$="*FNt|anh(" . |
|00005dc0| 66 75 6e 63 74 69 6f 6e | 24 3d 22 46 4e 74 61 6e |function|$="FNtan|
|00005dd0| 68 28 22 0d 26 fc 24 6d | 75 6c 74 69 25 3d a3 3a |h(".&.$m|ulti%=.:|
|00005de0| 61 72 63 25 3d a3 3a 64 | 69 73 70 6c 61 79 24 3d |arc%=.:d|isplay$=|
|00005df0| 22 54 61 6e 68 28 22 0d | 27 06 05 cd 0d 27 10 0c |"Tanh(".|'....'..|
|00005e00| e7 20 61 72 63 25 20 8c | 0d 27 1a 3f e7 20 6d 75 |. arc% .|.'.?. mu|
|00005e10| 6c 74 69 25 20 8c 20 66 | 75 6e 63 74 69 6f 6e 24 |lti% . f|unction$|
|00005e20| 3d 22 2a 46 4e 61 72 63 | 74 61 6e 68 28 22 20 8b |="*FNarc|tanh(" .|
|00005e30| 20 66 75 6e 63 74 69 6f | 6e 24 3d 22 46 4e 61 72 | functio|n$="FNar|
|00005e40| 63 74 61 6e 68 28 22 0d | 27 24 2c 6d 75 6c 74 69 |ctanh(".|'$,multi|
|00005e50| 25 3d a3 3a 61 72 63 25 | 3d a3 3a 64 69 73 70 6c |%=.:arc%|=.:displ|
|00005e60| 61 79 24 3d 22 54 61 6e | 68 22 2b bd 32 35 34 2b |ay$="Tan|h"+.254+|
|00005e70| 22 28 22 0d 27 2e 05 cd | 0d 27 38 08 c9 20 32 31 |"(".'...|.'8.. 21|
|00005e80| 0d 27 42 0d e7 20 ac 61 | 72 63 25 20 8c 0d 27 4c |.'B.. .a|rc% ..'L|
|00005e90| 13 64 69 73 70 6c 61 79 | 24 3d 22 41 62 73 28 22 |.display|$="Abs("|
|00005ea0| 0d 27 56 33 e7 20 6d 75 | 6c 74 69 25 20 8c 20 66 |.'V3. mu|lti% . f|
|00005eb0| 75 6e 63 74 69 6f 6e 24 | 3d 22 2a 41 42 53 28 22 |unction$|="*ABS("|
|00005ec0| 20 8b 20 66 75 6e 63 74 | 69 6f 6e 24 3d 22 41 42 | . funct|ion$="AB|
|00005ed0| 53 28 22 0d 27 60 13 6d | 75 6c 74 69 25 3d a3 3a |S(".'`.m|ulti%=.:|
|00005ee0| 61 72 63 25 3d a3 0d 27 | 6a 05 cd 0d 27 74 1e 7f |arc%=..'|j...'t..|
|00005ef0| 3a 64 69 73 70 6c 61 79 | 24 3d 22 22 3a 66 75 6e |:display|$="":fun|
|00005f00| 63 74 69 6f 6e 24 3d 22 | 22 0d 27 7e 05 cb 0d 27 |ction$="|".'~...'|
|00005f10| 88 1e 6c 61 73 74 5f 64 | 25 28 6c 61 73 74 25 29 |..last_d|%(last%)|
|00005f20| 3d a9 28 64 69 73 70 6c | 61 79 24 29 0d 27 92 1f |=.(displ|ay$).'..|
|00005f30| 6c 61 73 74 5f 66 25 28 | 6c 61 73 74 25 29 3d a9 |last_f%(|last%)=.|
|00005f40| 28 66 75 6e 63 74 69 6f | 6e 24 29 0d 27 9c 19 6c |(functio|n$).'..l|
|00005f50| 61 73 74 5f 6d 25 28 6c | 61 73 74 25 29 3d 6d 75 |ast_m%(l|ast%)=mu|
|00005f60| 6c 74 69 25 0d 27 a6 0c | 6c 61 73 74 25 2b 3d 31 |lti%.'..|last%+=1|
|00005f70| 0d 27 b0 21 e7 20 c2 64 | 69 73 70 6c 61 79 24 2c |.'.!. .d|isplay$,|
|00005f80| 31 29 3d 22 28 22 20 8c | 20 6f 70 65 6e 25 2b 3d |1)="(" .| open%+=|
|00005f90| 31 0d 27 ba 21 e7 20 c2 | 64 69 73 70 6c 61 79 24 |1.'.!. .|display$|
|00005fa0| 2c 31 29 3d 22 29 22 20 | 8c 20 6f 70 65 6e 25 2d |,1)=")" |. open%-|
|00005fb0| 3d 31 0d 27 c4 05 e1 0d | 27 ce 05 3a 0d 27 d8 38 |=1.'....|'..:.'.8|
|00005fc0| dd 20 f2 64 65 63 6f 64 | 65 5f 62 6f 74 74 6f 6d |. .decod|e_bottom|
|00005fd0| 5f 66 75 6e 63 74 69 6f | 6e 28 58 25 2c f8 20 64 |_functio|n(X%,. d|
|00005fe0| 69 73 70 6c 61 79 24 2c | f8 20 66 75 6e 63 74 69 |isplay$,|. functi|
|00005ff0| 6f 6e 24 29 0d 27 e2 07 | ea 20 61 0d 27 ec 1c 64 |on$).'..|. a.'..d|
|00006000| 69 73 70 6c 61 79 24 3d | 22 22 3a 66 75 6e 63 74 |isplay$=|"":funct|
|00006010| 69 6f 6e 24 3d 22 22 0d | 27 f6 26 66 75 6e 63 25 |ion$="".|'.&func%|
|00006020| 3d a4 63 68 65 63 6b 5f | 66 75 6e 63 74 69 6f 6e |=.check_|function|
|00006030| 28 22 62 6f 74 74 6f 6d | 22 2c 58 25 29 0d 28 00 |("bottom|",X%).(.|
|00006040| 25 e7 20 ac 61 72 63 25 | 20 8c 20 f2 69 6e 76 65 |%. .arc%| . .inve|
|00006050| 72 74 28 22 62 6f 74 74 | 6f 6d 22 2c 66 75 6e 63 |rt("bott|om",func|
|00006060| 25 29 0d 28 0a 0e c8 8e | 20 66 75 6e 63 25 20 ca |%).(....| func% .|
|00006070| 0d 28 14 07 c9 20 30 0d | 28 1e 0d e7 20 ac 61 72 |.(... 0.|(... .ar|
|00006080| 63 25 20 8c 0d 28 28 10 | 64 69 73 70 6c 61 79 24 |c% ..((.|display$|
|00006090| 3d 22 5e 22 0d 28 32 11 | 66 75 6e 63 74 69 6f 6e |="^".(2.|function|
|000060a0| 24 3d 22 5e 22 0d 28 3c | 1e 6c 61 73 74 5f 64 25 |$="^".(<|.last_d%|
|000060b0| 28 6c 61 73 74 25 29 3d | a9 28 64 69 73 70 6c 61 |(last%)=|.(displa|
|000060c0| 79 24 29 0d 28 46 1f 6c | 61 73 74 5f 66 25 28 6c |y$).(F.l|ast_f%(l|
|000060d0| 61 73 74 25 29 3d a9 28 | 66 75 6e 63 74 69 6f 6e |ast%)=.(|function|
|000060e0| 24 29 0d 28 50 14 6c 61 | 73 74 5f 6d 25 28 6c 61 |$).(P.la|st_m%(la|
|000060f0| 73 74 25 29 3d a3 0d 28 | 5a 0c 6c 61 73 74 25 2b |st%)=..(|Z.last%+|
|00006100| 3d 31 0d 28 64 13 6d 75 | 6c 74 69 25 3d a3 3a 61 |=1.(d.mu|lti%=.:a|
|00006110| 72 63 25 3d a3 0d 28 6e | 05 cd 0d 28 78 07 c9 20 |rc%=..(n|...(x.. |
|00006120| 31 0d 28 82 0d e7 20 ac | 61 72 63 25 20 8c 0d 28 |1.(... .|arc% ..(|
|00006130| 8c 12 e7 20 63 61 72 74 | 65 73 69 61 6e 25 20 8c |... cart|esian% .|
|00006140| 0d 28 96 10 64 69 73 70 | 6c 61 79 24 3d 22 58 22 |.(..disp|lay$="X"|
|00006150| 0d 28 a0 2d e7 20 6d 75 | 6c 74 69 25 20 8c 20 66 |.(.-. mu|lti% . f|
|00006160| 75 6e 63 74 69 6f 6e 24 | 3d 22 2a 58 22 20 8b 20 |unction$|="*X" . |
|00006170| 66 75 6e 63 74 69 6f 6e | 24 3d 22 58 22 0d 28 aa |function|$="X".(.|
|00006180| 1e 6c 61 73 74 5f 64 25 | 28 6c 61 73 74 25 29 3d |.last_d%|(last%)=|
|00006190| a9 28 64 69 73 70 6c 61 | 79 24 29 0d 28 b4 1f 6c |.(displa|y$).(..l|
|000061a0| 61 73 74 5f 66 25 28 6c | 61 73 74 25 29 3d a9 28 |ast_f%(l|ast%)=.(|
|000061b0| 66 75 6e 63 74 69 6f 6e | 24 29 0d 28 be 0c 6c 61 |function|$).(..la|
|000061c0| 73 74 25 2b 3d 31 0d 28 | c8 05 cd 0d 28 d2 13 e7 |st%+=1.(|....(...|
|000061d0| 20 70 61 72 61 6d 65 74 | 72 69 63 25 20 8c 0d 28 | paramet|ric% ..(|
|000061e0| dc 10 64 69 73 70 6c 61 | 79 24 3d 22 54 22 0d 28 |..displa|y$="T".(|
|000061f0| e6 2d e7 20 6d 75 6c 74 | 69 25 20 8c 20 66 75 6e |.-. mult|i% . fun|
|00006200| 63 74 69 6f 6e 24 3d 22 | 2a 54 22 20 8b 20 66 75 |ction$="|*T" . fu|
|00006210| 6e 63 74 69 6f 6e 24 3d | 22 54 22 0d 28 f0 1e 6c |nction$=|"T".(..l|
|00006220| 61 73 74 5f 64 25 28 6c | 61 73 74 25 29 3d a9 28 |ast_d%(l|ast%)=.(|
|00006230| 64 69 73 70 6c 61 79 24 | 29 0d 28 fa 1f 6c 61 73 |display$|).(..las|
|00006240| 74 5f 66 25 28 6c 61 73 | 74 25 29 3d a9 28 66 75 |t_f%(las|t%)=.(fu|
|00006250| 6e 63 74 69 6f 6e 24 29 | 0d 29 04 0c 6c 61 73 74 |nction$)|.)..last|
|00006260| 25 2b 3d 31 0d 29 0e 05 | cd 0d 29 18 0e e7 20 70 |%+=1.)..|..)... p|
|00006270| 6f 6c 61 72 25 20 8c 0d | 29 22 10 64 69 73 70 6c |olar% ..|)".displ|
|00006280| 61 79 24 3d 22 ff 22 0d | 29 2c 2f e7 20 6d 75 6c |ay$=".".|),/. mul|
|00006290| 74 69 25 20 8c 20 66 75 | 6e 63 74 69 6f 6e 24 3d |ti% . fu|nction$=|
|000062a0| 22 2a 54 68 22 20 8b 20 | 66 75 6e 63 74 69 6f 6e |"*Th" . |function|
|000062b0| 24 3d 22 54 68 22 0d 29 | 36 1e 6c 61 73 74 5f 64 |$="Th".)|6.last_d|
|000062c0| 25 28 6c 61 73 74 25 29 | 3d a9 28 64 69 73 70 6c |%(last%)|=.(displ|
|000062d0| 61 79 24 29 0d 29 40 1f | 6c 61 73 74 5f 66 25 28 |ay$).)@.|last_f%(|
|000062e0| 6c 61 73 74 25 29 3d a9 | 28 66 75 6e 63 74 69 6f |last%)=.|(functio|
|000062f0| 6e 24 29 0d 29 4a 0c 6c | 61 73 74 25 2b 3d 31 0d |n$).)J.l|ast%+=1.|
|00006300| 29 54 05 cd 0d 29 5e 16 | 6c 61 73 74 5f 6d 25 28 |)T...)^.|last_m%(|
|00006310| 6c 61 73 74 25 2d 31 29 | 3d b9 0d 29 68 13 6d 75 |last%-1)|=..)h.mu|
|00006320| 6c 74 69 25 3d b9 3a 61 | 72 63 25 3d a3 0d 29 72 |lti%=.:a|rc%=..)r|
|00006330| 05 cd 0d 29 7c 07 c9 20 | 32 0d 29 86 0d e7 20 ac |...)|.. |2.)... .|
|00006340| 61 72 63 25 20 8c 0d 29 | 90 1b 64 69 73 70 6c 61 |arc% ..)|..displa|
|00006350| 79 24 3d a4 63 68 6f 6f | 73 65 5f 6c 65 74 74 65 |y$=.choo|se_lette|
|00006360| 72 0d 29 9a 1e 6c 61 73 | 74 5f 64 25 28 6c 61 73 |r.)..las|t_d%(las|
|00006370| 74 25 29 3d a9 28 64 69 | 73 70 6c 61 79 24 29 0d |t%)=.(di|splay$).|
|00006380| 29 a4 4c e7 20 6d 75 6c | 74 69 25 20 8c 20 66 75 |).L. mul|ti% . fu|
|00006390| 6e 63 74 69 6f 6e 24 3d | 22 2a 22 2b 64 69 73 70 |nction$=|"*"+disp|
|000063a0| 6c 61 79 24 2b 22 5f 63 | 6f 6e 73 74 22 20 8b 20 |lay$+"_c|onst" . |
|000063b0| 66 75 6e 63 74 69 6f 6e | 24 3d 64 69 73 70 6c 61 |function|$=displa|
|000063c0| 79 24 2b 22 5f 63 6f 6e | 73 74 22 0d 29 ae 1f 6c |y$+"_con|st".)..l|
|000063d0| 61 73 74 5f 66 25 28 6c | 61 73 74 25 29 3d a9 28 |ast_f%(l|ast%)=.(|
|000063e0| 66 75 6e 63 74 69 6f 6e | 24 29 0d 29 b8 14 6c 61 |function|$).)..la|
|000063f0| 73 74 5f 6d 25 28 6c 61 | 73 74 25 29 3d b9 0d 29 |st_m%(la|st%)=..)|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
